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(2) 7 DECLARATIONS 

(4) ‘ 8 ti FAULT = Decode ingtruct ton stream. 

(5) CODE_FAUCT = major processing routine 

M2) 2056 Operand Decoding Routines 
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IBSDECODE _F AULT = Decode instruction stream 15-SEP-1984 X/VMS v04-00 Pa 1 
iti a-SEpa19be Fis08s20 ECTONTe eae aerooec oor mar:1 2% ct) 
D000 eTITL LASSE CODE. FAULT = Decode instruction stre 
0900 IDEN S File: LIBDECODF-MAR Edit: SBL1009 
DUUU FRAAAAHAAKAAAH AAA AAAAHEAAAAAAAARAAAAAAAAHAAAAAAAAAAAeeAAAeAeeeeeeeeeeeTeeee 
UU ;* a 
YOOU § ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
YOOC 3* DIGITAL See ay CORPORATION, MAYNARD, MASSACHUSETTS. * 
YOO0 ‘* ALL RIGHTS RESERVED * 
le ' 3 e 
D000 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
D000 11 ;* ONLY IN omit NCE WITH THE TERS OF SUCH LICENSE AND WITH THE * 
D000 12 ;* Aneel ON OF THE ABOVE Sell NOTICE. THIS SOF TWARE OR ANY OT pet * 
D000 15 ;* COPIES THEREOF MAY er Me ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
D000 14 ;* OTHER PE ° "hi LE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
D000 12 :* TRANSFERRED. * 
' ' 3 ® 
00 ' i :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
D000 \8 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
D000 }? :* CORPORATION. * 
‘ ‘ 3 & 
D000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
oF § :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
4 : s achanennnenteunebnaneenenaneunnueenmnndanenbasneneoenuaseennsecnsenseenentn 
00 ; § 304 
0 4! 3 3; FACILITY: General Utility Library 
‘ ) 3 
D000 , 3 ABSTRACT: 
' ie 3 
D000 § 3 LIBSDECODE =F AULT is a procedure which analyzes the instruction 
D00C 3 stream and environment at the time of an instruction fault and 
st: : : which calls a user-supplied procedure to ‘‘handle’’ the fault. 
500¢ $ ; ENVIRONMENT: Runs at any access mode, AST Reentrant 
’ ie 3 
300 ; AUTHOR: Steven B. Lionel, 12-August-1981 
‘ ve e 
D00C ret 3 NOTE: This module contains a great amount of code adapted from 
D000 41 ; LTOCEL ATE. written oY Derek Zave. Because of the large 
0000 4g 3 of common code between this agduie. LIBSERULATE and 
0000 435 ; Ligssine TRAP cares written by Derek Zave), all th 
D00¢ 44 ; modules s aoe» be investigated if a problem should. be found 
500¢ 22 3 in any one hem. 
UL bd 
‘ 00 ' *$ : 
b00¢ 2 3 MODIFIED BY: 
ue ‘ 3 
0000 ¢ 17001 - Original, SBL_ 12-Aug-1981 
000 3 1-002 - Rabe regi ster change counters words instead ‘2 bytes. since the 
000 § 3 modification can concetyab ly be greeter than 256 byt * 
YOUU ; Increase user stack to ,eguere $ to be safe. SBL 11-Sept-1981 
D00¢ 4 : 1-003 - Correct argument count test for user 30"9 and opcode_table. 
000¢ 5 3 Correct test for valid st néare opcod e. Correct Falilsterneds 
0006 § 3 operand processing. SBL 20-0ct- 
0000 3; 1-004 - Correct “byte vs. 2-byte et test. Swap order of Modify and 
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5 1-006 - 


; 1-007 = Don't set PSLSV_ 


; 1-008 - Add new parameter origina 


; the 
; 1-009 = Fix “branch destination out of range’’. SBL 


= Decode instruction stream oF 15S ath $3:33:36 AX/VMS Macro V04-00 


6-SEP- 


Write access codes. SBL ce-0e01961 
1-005 - Forrest and rearrange orger 0 gucept lon type checks. Use 
11086 T_OPCODE if a BPT is found. SBL 10-Dec-19 

FPO Ts set, and the addressing mode is autoincrement or 
autoincrement deferred, and the base register is PC, do the 
autoincrement an “g . Tals s because we must step the PC over 
the operand. sal B= Junet 8 

P if PSL$V_TBIT is set. The architecture says 
we're not supposed to, 30 Tt gets in the way of doing trace 
$ “Noy-1 


trapping. 8 
d registers to the action routine which 
contains she contents of the registers at the time of the fault 
F n romene’ qucecece ment. Recognize new return status 
Li0 RESTART from action routine fo restart current Betrys tren. 
his allows trace routines to be implemented. Retract 1-0 3 
rest of the code properly manipulates TP $B T}-may~198 
= ay- 


LIBRIL.SRCILIBDECODF .MAR; 1 


Macro for genera: ine operand gorpereren codes 

-MACRO OPDEF A1,A2,A3,A4,A5,A6 

‘ CODE ,<A1,A2,A3,A4,A5,A6> 

-1F NOT_BLANK XCOO 

~BYTE  <LIBSK_DCFTYP_ZEXTRACT(1,1,XCODE)@LIBSV_DCFTYP>+ - 
ile LIB$K_BCFACC_ZEXTRACT(0,1,XCODE) 


ZENDR 
“BYTE LIBSK_OCFOPR_END 
ENDM 


EQUATED SYMBOLS: 
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1858 DECLARATIONS 6-5 set #7508336 LIBRTL.SRCIJLIBDECODF .MAR; 1 ° 3) t: 
78 : ~SBTTL DECLARATIONS 
; LIBRARY MACRO CALLS: 
7 SSSDEF : System Status Codes 
SSF DEF 3 Stack frame definitions 
SOSCDEF 3; Descriptor codes 
4 SCHFDEF 3; Condition handling codes 
5 SPSLDEF : Processor Status Longword codes 
§ : SLIBDCF DEF ; LIBSDECODE_FAULT definitions 
: ; EXTERNAL DECLARATIONS: 
a7 -OSABL GBL ; Force all external symbols to be declared 
91 eEXTRN SYSSCALL_HANDL ; System routine that calls handlers 
35 eEXTRN SYSSSRCHANDLER ; syeten routine that looks for handlers 
0 9 EXTON SYSSUNWIND 3; SUNWIND system service 
Bh 94 -EXTRN LIBSGET OPCODE ; Get original opcode from debugger 
as -EXTRN LIBSSTOP ; Signal severe error 
000 38 -EXTRN LIBS_INVARG : Invalid argument error code 
0000 4 eEXTRN LIBS_RESTART ; Restart current instruction 
$00 99 : MACROS: 
00: 3 Macro for Comparing Condition Codes 
000 -MACRO CMPCOND CO 
| 99 CMPZV #3,826,LOC,#CONDa-3 
: 


SoOOoooooooooooooo 


See body of routine 
3 OWN STORAGE : 

: NONE 

; PSECT DECLARATIONS: 


.PSECT _LIBSCODE PIC, USR, CON, REL 
EXE, RD, NOWRT, LONG 


[=] 
[=] 
[=] 
So 


LCL, SHR, - 


MRO OONANE WIN 9 ODNAUE WIN 0 ODNOU EWI —O Oo 


me ek eh et td sd a es st te ns a 
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} : 3 RETA AAAAKAAAAARAAAARAAAAAAAAAARAAAAEAAAAAARAAARAAAAEEEAAEARRAAEAAEEEE 
1 § : ° : 
! 4 3 Assorted Definitions * 
° * 
14 : i ciaiiahnliapdienthineiatinaieibaadnenanmadeeeimmtiniammiammninies 
i 
148 : Parameters 
00000050 146 CALL_ARGS = 80 ; flexible stack space (longwords) 
14 3; This is enough for 16 octaword 
133 ; operands, plus some extra room. 
150 ; 
13 ; Call Frame Layout 
00000000 1 g HANDLER = 0 ; condition handler location 
44544544 154 SAVE_PSW = 4 3; saved processor status word 
0000006 155 SAVE_MASK = 6 3; register save mask 
sit 4 ; 138 MASK_ALIGN = 14 ; bit position of alignment bits 
0 157 SAVE_AP = 8 3; user's argument pointer 
f 138 SAVE_FP = 12 3; user's frame pointer 
159 SAVE PC = 16 3 return +4 n 
4 160 REG_RO = 0 3 user's RO 
8 161 REG_R1 = 4 3; user's R1 
f 16 REG_RE = 8 ; user's R 
16 REG_R = 2 3; user's R 
4 164 REG_R4 = 6 ; user's R4 
8 165 REG_RS = 40 ; user's RS 
f 196 REG_RG = 44 3; user's R6 
0 167 REG_R7? = 48 3; user's R7 
4 168 REG_R8 = 52 ; user's R8 
000038 198 REG_RO_ = 56 3; user's R9 
000003C 170 REG_R10 = 60 3; user's R10 
00000040 171 REG_R11 = 64 ; user's R11 
00000044 176 FRARE _END = 68 z end of call frame 
17 : Call Frame Extension Layout 
00000044 176 REG_AP = 68 ; user's AP 
8 1? REG_FP = 7 3; user's FP 
of 1 3 REG_SP = 7 3; user's SP 
0 5 179 REG_PC = 80 3; user's PC 
O60 54 180 PSL = S ; user's PSL 
; 38 181 LOCAL_END = 8 ; end of our local storage 
0 5 : § TEMP . 88 ; temporary area for arithmetic 
! : ; Local Storage Layout 
FFFFFFFF 1 6 SAVE_ALIGN = —- HANDLER=1 ; saved copy of alignment bits 
FFFFFFFE 187 SAVE-PARCNT = SAVE_ALIGN-1 3; saved copy of parameter count 
FFFFFFFD 1 3 MODE = SAVE_PARCNT~-1 ; access mode for grokes 
Seecereh 189 FLAGS = ODE=1 ; indicator flag » ts 
FFFFFFF 190 SAVE_DEPTH = FLAGS=4 3; saved copy of signal depth 


n 8 
truction stream 15-SEP-1984 23: 
5-8E- 1382 fF 


IBSDECODE_F AULT = Decode ins 55: AX/VMS Macro V04-00 Page 
7-009 DECLARATIONS 08:30 ECTORTE.SRETCIbbECooF mars1 29° 3) 
FFFFFFF 191 SHORT_LOCAL = SAVE_DEPTH ; start of short local storage 
CE TEEEES 138 ORIG_PC = SHORT_LOCAL=4 ; Srleinel PC 2 
FFFFFFFO 195 ORIG_SP = ORIG_PC-4 ; original SP 
FFFFFFE 194 ORIG_FP = ORIG_SP=4 3; original FP 
FFFFFFE 195 ORIG_AP = ORIG_FP=-4 3 original AP 
FFFFFFE 138 ORIG_R11 = ORIG_AP=4 3; original R11 
FFFFFFEO 197 ORIG_R1I0 = ORIG_R11-4 3 original R10 
44aaad 43 138 ORIG_RO = ORIG_R10-4 : original R9 
FFFFFFD 19 CRIS Re = ORIG_R9-4 : original R 
FFFFFFDS4 ORIG_R? = ob A ; original R 
FFFFFFDO OniG-RG = ORIG_R7=4 ; original R 
44444995 § ORIG_RS = db A ; original R 
FFFFFFC ORIG_R4 = ORIG_R5=4 ; original R4 
FFFFFFC4 00 4 ORG -RS = ORIG_R4-4 ; original R3 
FFFFFFCO 0000 5 ORIG_R2 = ORIG_R3-4 3 original R2 
FFFFFFBC 0000 88 ORIG_R1 = ORIG_R2-4 : original R1 
FFFFFFB8 4 ORIG_RO = ORIG_R1-4 3 original RO 
0000 09 :+ 
0000 10 : Define sixteen octawords to hold immediate mode 
0000 ii 3 operands which are to be read. 
$383 Fig 
FFFFFEBS 444 \3 READ_OPERANDS = ORIG_RO - 256 : 16 octawords for operands 
0000 216 :+ : 
0000 19 ; Define array of read operand addresses to be passed to user's action 
000 18 ; routine. 
B88 Bg 
FFFFFE78 0900 ; READ_ADDRS = READ_OPERANDS = 64 : 16 longword addresses 
000 3+ 
0000 4 ; Define array of write operand addresses to be passed to user's action 
0000 5 ; routine. 
0000 359° 
FFFFFE38 0000 3 WRITE_ADDRS = READ_ADDRS - 64 :; 16 longword addresses 
an09 rc 
0900 § ; Define array of operand types to be passed to user's action routine. 
4 6 
FFFFFDF8 000 5 OPERAND_TYPES = WRITE_ADDRS - 64 ; 16 longwords 
FFFFFDF4 000 N_OF_OPERANDS = OPERAND_TYPES= 4 3; Number of operands 
FFFFFDFO 3 IRSTR_OPCODE = N_OF_OPERANDS - 4 ; Zero-extended opcode 
FFFFFDEC 00 40 INSTR_DEF = INSTR_OPCODE-4 s address of instruction operand 
4 ; definition table entry 
FFFFFDE8 42 USER_ACT_ARG = INSTR_DEF=-4 ; user action routine argument 
FFFFFDES 43 USER-ACT_-ENV = USER_ACT_ARG-4 3 user action routine environment 
FFFFFDEO 44 USER_ACT_ADR = USER_ACT_ENV=4 3; user action routine address 
FFFFFDDC 45 SAVE-SIGARGS = USER-ACT-ADR=4 ; address of signal arguments 
srrerees 44 4g COND"NAME = SAVE" SIGARGS=4 3 saved condition name 
FFFFFDD 47 LOCAC_START = COND"NAME 3 start of our local storage 
| 
| 
J 


=r 
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$ 0 
00000000 


00000001 


00000001 
00000002 


Flag Bit Numbers 


Flag Bit Masks 
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; Current operand is a register 
; Resignal requeste 


; Current operand is a register 
3; Resignal requeste 
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exception is not one of the recognized 
faults or if the instruction being 
executed can not be found in either the 
user-supplied instruction definition 
tables or our own. 


SIDE EFFECTS: 
Stack frames are unwound back to the frame which generated 
the exception. further side effects may be caused by the 
user action routine. 


LIBS_INVARG Invalid argument to Run-Time Library ; 
This exception is signalled if an instruction 
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41888 LIBSDECODE. FAULT - Decode instruction st atts 7 1:05:2 LIBRTL.SRCILIBDECODF .MAR; 1 oe 
° ne ~SBTTL LIBSDECODE_FAULT = Decode instruction stream. 
6 ; FUNCTIONAL DESCRIPTION: 
64 : This procedure is to be called by a condition handler at the 
65 ; time of an instruction fault. It determines the environment 
06 3 of the fault, analyzes the instruction stream to locate 
67 ; operands, and calls a user-supplied procedure to handle the 
° rt: : exception. 
6 29 ; CALLING SEQUENCE: 
$008 ie : status.wic.v = LIBSDECODE_FAULT (sigargs.rlu.ra, mechargs.rlu.ra, 
0000 tf? § ser_action.cx.dp 
0000 74; C. user org.re.v 
44 ie : » opcode_table.rbu.raJ]) 
000 7 : FORMAL PARAMETERS: 
00000004 0000 5 / sigargs = 4 ; Address of signal arguments array 
00000008 44 $0 mechargs = 8 3; Address of mechanism orqunents array 
0000000C 0000 1 user_action = 12 3; Address of descriptor of user-action 
0000 Ht ; procedure. Datatype may be BPV, in 
0000 8 3; which case the environment value is 
4 se ; loaded into R1 before calling. Other 
00 5 3; types are assumed to be ZEM. 
00000010 0000 a6 user arg = 16 ; Argument to user action routine (optional) 
00000014 0000 8 opcode_table = 20 ; Address of byte array that specifies 
000 88 3; additional opcode definitions. See 
44 34 3 text below for more information. 
000 91 IMPLICIT INPUTS: 
000 38 
000 9 NONE 
+4 94 
00 95 ; IMPLICIT OUTPUTS: 
000 36 
4 9 NONE 
00 98 
4 + COMPLETION STATUS: 
$00 1 SS$_RESIGNAL Resignal exception to next handler 
000 § his status is returned if the current 
8 i 
H ; 
3 : 
10 
gH 
18 
14 
15 
16 


Soooooo 
Soooooo 
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definition in the user-supplied opcode 
table contains an invalid operand definition 
or if more than 16 gperends are defined 


—- 


OOoaon Cc 


; Because this exception is signalled after the 
1é signal frames are unwound, the exception 
§ ; will appear to have come from a procedure called 
i : at the point of the faulting instruction. 
5 i= 
; ENTRY LIBSRE COPE rot 3 entrance 
50 A § MOVL —-shanrgntAPD RO. S ante stoned locati 
sigargs 3 = signal array location 
51 62 00 0 MOVL HPSL°S1G NAMECRO),R1 RI = signal name” 
1 CMPCOND SS$_ROPRAND,R1 ; Reserved operand fault? 
SA § $ ; Ok if it is 
® ofe ; Floating overflow fault 
- 7 gaa 3 FLTOVF_F,R1 A : i flow fault? 
5 CMPCOND | ak laleaeas tal 3 FLogting underflow fault? 
44 $ EQL $ ; Ok if it is 
CMPCOND ae dni 3 posting divide-by-zero fault? 
39 8 EQL $ ; Ok if it is 
9 CMPCOND alec 3 apeege reserved to Digital? 
2€ EQL $ : Ok if it is 
CMPCOND | a aeeemaeaal 3 Opcode reserved to customers and CSS? 
23 EQL $ 3; Ok if it 
CMPCOND SS$_ACCVIO,R1 3; Access violation? 
1¢ $ ; Ok if it is 
CMPCOND SS$_BREAK,R1 ; Breakpoint fault? 
11 Q $ ; Ok if it is 
CMPCOND SS$_TBIT,R1 :; Trace pending fault? 
06 QL : Ok if it is 
: a he ; Resignal exception 
50 0918 8F 49 1$ MOVZWL #SS$_RESIGNAL, RO Resignal i 
RET ; Return to caller 


WIS OONAULS WO OONOUS WO 
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; Check to see if we can at least read the instruction opcode. If not, 
3; simply resignal. Get opcode into R 
51 60 2s MOVL ),R1 ; Get signal orquaent count 
51 FC A041 MOVAL c4(RODERII.RI ; Get address of PC/PSL pair 
51 61 va »,R ; Get PC/PSL in R1-R2 
—- = 8 8 EXTZV. #PSL$V CURMOD . #PSLSS_CURMOD .R2.R2 ; Get current access mode 
61 5 PROBER o#1,TR1) 3; Can we read first byte? 
E4 EQL 3 af note resignal 
re 1 MOVZBL (R1) -R3 ; Get first opcde byte 
FD 8F 3 64 MPB R3,4°XFD 3 2-byte opcode? 
65 BLSSU $ 3 skip if not 
61 02 g 6 PROBER ee -A. 081) ; Probe both bytes 
D BEQL 1 : Skip if not accessible 
535 61 MOVZWL (R1),R3 3; Get both opcode bytes 


3¢ 
; if the opcode is BPT, and if the exception is not SS$_BREAK, see 
3; if the debugger has modified the instruction stream. 


ee | 
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03 ¢ 9 4 3$: CMPL tlie 3; Is it a BPT? 
4 5 BNEQ 4 3; No, skip 
50 O04 AC OD § MOVL gigergs<AP) no : Get condition name 
7 CMPCOND 33 BREAK, CHFSL_SIG_NAME(RO) ; Is it SS$_BREAK? 
.° Y 7 BNEQ 4 3: No, skip 
54 1 #O 7 OVL R1,R4 3; Save PC 
1 OD PUSHL R11 3 Push PC of instruction 
00000000 ' GF 79 1 CALLS #1,G*LIBSGET_OPCODE ; Try to get original instruction 
4 OD § MOVL R4,R1 3; Restore PC 
8 3 MOVL RO,R3 : R3 has original opcode 
FD 8F 4 CMPB RO, #*XFD 3; 2-byte opcode? 
§ 1F 5 BLSSU 4 3; skip if not 
61 02 0 § PROBER R2,#2,(R1) ; Can we read both bytes? 
3 Resigna not 
pa EQL 1 Resignal if 
33 9} 3 8 MOVZWL (R1),R3 3; Get second byte 
0 ; OVB = RO, RS : Get first byte 
91 3+ 
5 ; See if the opcode is defined in either the user's opcode table or 
87 3 our own. 
55 53 00 95 ds: MOVL R3, R5 3: Save ‘'real’’ opcode 
05 g¢ 91 00 36 CMPB ss (AP) #<opcode_table/4> 3 opcode_table present? 
1F O06 9 BLSSU STD_OPCODE : No 
54 14 AC 09 OD 98 MOVL opcode table(AP) ,R4 3; Get address of user opcode table 
_ ODC 99 BEQL STD_OPTODE 3; If no table, look in standard tables 
51 4 OA OE 400 10$: MOVZBL (R4Y+,R1 3; Get first byte from table 
FD 8F 1 91 OOE 401 CMPB R1,#°XFD :; Is it_a 2-byte opcode? 
OD iF pes 40 BLSSU 11 3 Skip if not 
51 FF AS 3C OOE 40 MOVZWL -1(R4),R1 ; Get two-byte code 
54 06 4 404 INCL 4 3; Update table pointer 
FFFF 8F 51 #61 Ep 405 CMPW R1,#°XFFFF : End of opcode definitions? 
08 13 O00F2 40 BEQL STO _OPCODE : If so, search standard tables 
3 fT 8} OFS 407118: CMPW R : Is this the right opcode? 
41 F7 408 BEQL = INSTR_FOUND : If so, we've got it! 
84 95 OOF9 409 12$: TSTB (R4)+ 3; Skip to next opcode 
FC 13 OOFB 410 BEQL \cs : Defined by end byte of zero 
OF 11 a ‘ie BRB 10$ 3 Look at next opcode 
OFF 4135 ;¢4 
Bee 213 ; Search our standard tables of opcode definitions. 
OFF 416° 
OFF ti STD_OPCODE : pi 
FD 8F 53 91 FF 213 CMPB R3,4°XFD 3; Known two-byte ‘stick’? 
14 1€ 1 H 41 BGEQU 3; Skip if maybe 
54 00000446'EF43 75 1 420 MOVZWL TAB_1BYTECR3],R4 3; Get pattern offset 
¢? 1 10D «421 BEQL NOT_ FOUN ; If zero, unknown opcode 
54 00000446'EF44 3 10F 4 § MOVAB TAB_1BYTECR4],R4 3; Get pattern address 
21. 1 117 4 RB INSTR_ FOUND 3; Pattern address in R4 
19 1A 0119 424 208: TRU NOT_F Np 3; We have only the FD stick 
53 53 F8 8F 78 O11 425 ASHL #-BR5,R : Get second byte alone 
54  00000646'EF43 76 1 4 § MOVZWL TAB_2BYTECR3],R4 ; Get pattern address 
OA 1 1 & BEQL NOT_ FOUND : If zero, unknown opcode 
54  00000646'EF44 5 120A 4 3 MOVAB TAB 2BYTECR4],R4 ; Get address of pattern 
06 «1 : ¢ 2 3 BRB INSTR_F 


LIBSDECODE, FAULT 


oa. 
oe 
o 
m—. 
"we 
Dad 
c7 


- D 
LIB 


ae ee ee a ee a ee ee a ee a ed ee DB a a a a a Ba oe od oa a a ad DD 
bg ee RR By ee a Ee a a PT Ie eS 
VERO PAH NS QIU 9 NF SMO NU 2  @ HOOMOOOO POOVIIM SP PPPrPrPrPrPrPOLL ELLE SE 


F 9 
uction stream 15-SEP-1984 23:55: AX/VMS Macro v04-00 
tf = Decode instruction st 5-86-1383 $7308 :38 LIBRTL.SRCILIBDECODF .MAR; 1 


Come here if we can't find a definition for the instruction. 


NOT_FOUND: 
MOVZWL #SS$_RESIGNAL.RO 3; resignal current exception 
RET ; Return to CHF 


; We now know that we want to handle the exception. Unwind the 

3 stack frames back to the one which caused the exceptions. We actually 
; don't reset SP until the very end. 

I 


-12(FP) $P 3; allocate stack Space AP, FP, SP 
PUSHR #*M<R6,R7,R8,R9,R10,R11> ; save registers R6-R1 
SUBL2 #24,SP ; allocate space for RO,R1,R2,R3,R4,R5 
MOVL FP,RO ; RO = current frame pointer 
4$ TSTL (RO) 3; Does that frame have a handler? 
BEQL 5$ : Skip if not 


; Call frame's handler with SS$_UNWIND. Note that this is not exactly 
3; how SYSSUNWIND does it, but is our best approximation. The difference 
; is that there is no protection from overlapping unwinds. 


MOVL RO,-(SP) 


; Save our RO 
CLRQ = = (§P) 


; Construct mechanism argument List 
; Use dummy RO-R1 since we'll 


i ot ot ot ot a a Meena eee 


= 
PADRES BBS BS BB BE ENNIO 
BeGe Se Ge Sete te eee 


SOOWONAULS WN O OONAULS WHO 


CMPL § #SYSSCALL_HANDL*+4,16(RO): 7s this the condition handler ? 
BEQL 8&$ 3: yes - bypass 


; anyway 
46 CLRL -(SP) ; Depth= 
464 PUSHL RO ; Establisher's FP 
465 PUSHL #4 ; Number of mechanism args 
rf oth ge GSS _UNUIND. -(SP) ; Create unwind signal argument List 
46 PUSHAB 8(SP) 3; Mechanism List location 
4 PUSHAB 4(SP) : Signal List location 
470 MOVL (RO) ,R1 ; Handler address 
471 JSB G*SYSSCALL_HANDL ; Call condition handler 
$76 ADDL2 # ; Pop back to our saved R 
tS ‘ MOVL (SPS+,RO 3; Restore our RO 
rth ; Ok, we're back from calling the handler. Now unwind the frame. 
rh 5s EXTZv #0 n3 SAVE_MASK(RO),R1 ; Rl = register save mask 
$78 MOVAB R 6_R (RO) Re ; R2 = start of registers in RO frame 
4 CLRL 3 chear the register index 
« 6$: R5,412,R1,R3 ; find the next saved register 
4 BEQL 7$ 3; no more saved registers - bypass 
4 § MOVL (R2)+,(SP)CR3] 3; get the register value 
4 INCL R3 : increment the register number 
484 BRB 6$ ; look some more 
? ‘ 7$: MOVa SAVE_AP(RO) ,48(SP) 3; get the values of AP and FP 
4 


; ignore what the handler do to them 


EAN O OONAUE WN —O OONOAUS WN Oo 


Be Se Se Ge Se Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Ge Se Se See 


TRH HMMM OOO OC OOOlOO 


PUPVIVLV DVI IV IVSIVLPVSPVSVSVSISUSTSTAAIAA AAAI 


fun —-0O0@ 


PRR 


prema ae eeeeoe Se eee eeeenoeneae 


H pointer ‘‘A’’ H 


teres onn ce@w ee oe ot escesoan + 


{ signal arg #n-2 H 


foawmoa see ewe meron nn enne 


t signal condition name 


Fewwewoowocoewoeococoene! 
: N of signal args : 
: “original"’ opcode H 


ewe meee wee wwe ee ween eee nt} 


t operand pattern addr : 


pone ewe econ cm ce er een ee een H 


i user-action argument : 


bee ne cee ewe mew ew ee ew wee en} 


tuser-action environment: 


gw wmewrenrcoeszecaacee eee2oeoeoeo 


t user-action address i; 


terest o rome wen om ee mena eaoen $ 


i signal depth : 


Poses r an eee ete ces en oa sana} 


' PSL ' 


oes So 
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LIBSDECODE_FAULT = Decode instruction st 6-SEP-1984 11:05: LIBRTL.SRCIJLIBDECODF .MAR; 1 
50 34 ar 9 4 MOVL (SP),RO : RO = Location of next call frame 
? A 4 RB 3 unwind the frame 
50 04 AC <8 A 490 8$: SUBL3 #28,sigargs(AP),RO 3 Find the address of the point 
rl $3 3; before the tienet ar nts list 
A 4 3; where we will save the signal 
A 49 ; depth, user-action procedure and 
. 2 : 3; ar pee operand pattern address 
3 opcode. 
8 AE 50 pe A 49 MOVL RO,56(SP) 3 set soved copy of SP 
1 8 AC y af 49 MOVL mechargs (AP) ,R1 3; R1 = mechanism array location 
Al 8 $38 mova CHFSL_ACH_SAVRO(R1),(SP); get RO and R1 
04 A Al OD BS 9 MOVL CHFSL-MCH-DEPTH(R1) ,4(ROS ; Save signa} depth 
3 § AG 3 B89 MOVL user _action(AP) ,R1 : Get user-action routine doogrigter 
0 oy 73 BD a pscs6_ TYPE (R1) ,ADSCSK_DTYPE BPy Sone procedure value 
3 no 
08 AO 3 04 Bt ? 3 $ sy PEs eA PORTER ERT) OCR? Fetch address and environment 
08 AO Sf Al 00 A 5 9$: MOVL DSCSA_POINTER(R1),8(RO) ; Fetch address 
3 A be 5 § CLRL 1 44 3: No environment 
10 A C g 10$: CLRQ 16(RO) 3; Assume no user-arg 
04 gf 91 43 CMPB (AP) ,#<user_arg/4> 3 Is it present? 
1F 8 9 BLSSU 11$ 3 No 
10 a0 10 AC OD A 1 MOVL user 1 lel data 3; Fetch user-arg 
14 AO 32 ) F 11 118 MOVL Re guen ) 3 Save opcode pattern address 
18 AO . 8 ; 1 MOVL R5,24(RO) 3 Save opcode 
51 1C AO OD 1 MOVL gBiRO) RY ; Get signal argument List count 
60 1€ A041 D 1 MOVL (RO) ER1] (RO) : Move PSL to safe spot 
1¢ A041 «6550 oD 1 MOVL RO,28(RO)CR1) ; Move address of saved PSL to 
: 3 PSL's place on the stack 
18 ;+ 
19 ; At this point, the stack looks Like this: 


<-- SP at exception time 


(if any) 


<- RO <= pointer ‘‘A" 


4 
tion stream 15-SEP-1984 23:55: AX/VMS Macro Vv04-00 P 1 
: = Decode instruction st 6-S ets $7508 :36 LIBRTL.SRCIJLIBDECODF .MAR; 1 rp tg) 
te eeeeeaeeeeee oF 


ese Cunknown Locations) 


te eeeeceseeeees 


: saved SP ' 


bearer enn moo usawsacaoace $ 


' saved FP ' 


temo eeeeeeeeaeee «4+ 


eee (Saved R2-AP 


) 
te eeeeseeeeeee «+ 


} saved R1 ' 


tomer ner awn ere moos amnssaan$ 


: saved RO | <= SP 


bmw twee woe seem ewe nme wenn $ 


| IBSDECODE FAULT t 


7 
APD 
b-444 
p84 
s° 
me, 

>] 
"yw 
> Tad 
Cc 
re 


We now restore registers RO-SP in a single POPR. When we're done, 
. SP will point to the saved PSL where RO points now. 


7FFF SF POPR #*M<RO,R1,R2,R3,R4,R5,- ; restore registers RO-SP 


R6,R7,RB,RI,R10.R11,AP,FP,SP> 


> 
OOQQOOCCGGOOOOCOCOCCOCOCOCOoOo 


a 4 a st ts a ts ss 2 2 


66 5+ 
$9 ; Compute distance we need to move SP to get CALL_ARGS arguments. 


§ , SUBL3 28(SP),#<CALL_ARGS-9>,-(SP) ; Number of Longwords to subtract 
0 ; 28(SP) is the number of sigargs 


7E 00000047 8F IC AE (C3 


rom (SP) to where we've stored 
“pointer A’’. The CALLS instruction 
will push one more longword. 


3 \\ 
71 : \\ The constant 9 includes 
7 ; \\ other pushed arguments, 1 for 
7 ; \\ the sigargs count and { for the 
74 3; \\ longword which is pushed by 
75 ; \\ this instruction. 
6— 04 C4 7 MULL #4, (SP) ; Get number of bytes 
5E 6€ (C2 7 SUBL2  (SP),SP : There are now CALL_ARGS Longwords 
if 


11°AF 00000050 8F FB 1 CALLS #CALL_ARGS,B*DECODE_FAUL 
00 HALT 


5 


: call the major routine 
execution should never return here 


POPOROPONOPOPOPoPoNnofnononorny 


——-DOOOooood 


ee pp faefolololololololo!] 
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-SBTTL DECODE_FAULT = major processing routine 
DECODE_FAULT = major processing routine 
parameters: ( Described Below ) 
Discussion 
This is the major proces ny routine for LIBSDECODE_ FAULT. 
The parameter List consists of CALL_ARGS+1 longwords, the Last 
several of which contain the signal arguments List (inc Luding 
PC and Ang FO i handler depth (from the now-clobbered 


mechanism list) and the addresses of the user action routine, 
environment, argumen 


| 1BSDECODE_F AULT 


~"e 
Pr 
c- 
2 
“Hy 


t, instruction operand pattern 
address, and instruction opcode. 


When the routine is entered the CALLS instruction saves 
the user's registers RO to R11 in order and saves AP and FP 
elsewhere in the frame. The routine extends the saved 
registers by saving the user's AP, FP, SP, PC, and PSL after 
the saved register area (the last two are taken from the 
parameter List). 


: Because we don't know the Conge® of the signal argument 
; List, we need a clue as to where the values we saved begin. 
: This is found by ooh ing at the very last argument. There 
3 we saved the address into the List of where the age tebe 

; values start. Refer to the previous page for more details. 
3 The local storage is allocated by extending the stack 

3 The cell MODE is set equal to the current access mode for 

; use in eres memory references. The alignment bits in the 
3 call frame and the call parameter count are also saved so 
; there is a safe copy to use when processing unwinds. The 

; original contents of the registers are saved. 


The instruction PC is then loaded into R11 and 
the opcode saved. 
Next, each operand of the instruction is located. for each 
operand, its type and location is stored in an array 
9 be passed later to the user action routine. However, 
I 


tt nd td ad ad ed ed ed me SHODDODOOOOCOOOOOO0OOOMM@cc 


=O OO NIA NEN OS OD NA UNF 1A OS OD NO UNE WIN 0 OD NOU EWN 0 OD NOU EU" OOONOUM 


f the FPD bit is set in the PSL, no operands are fetched. 
f this is the case, the number of operands passed to 
the usgroect ign routine is zero. neueyer. the contents 
of register 4" in the register array will po 
next instruction. It is assumed that if FPD is set that 
the registers and/or stack contain preprocessed operands. 


Notes: 1. From the description of the way the simulated 
register area is constructed. t is clear that 
the length lon yor? of the parameter List is 
overwritten. All of the methods of leaving 
put this longword back together. The 

nternal condition handler does this if it 
detects an unwind. 


a em ed a a a a ad to a 2 2 a a 
i a a ii i a at tk ak = = = a ss a 2 8 1 2 


SPP SSS SSB OP LLL LLLP TOIL 


2. The location of the instruction being processed is 
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DECODE_FAULT = major processing routine 6-SEP-1984 11:05: LIBRTL.SRCIJLIBDECODF .MAR; 1 (5) 
11 tg Sor stored in the return PC for our frame 
11 4 § so it may be easily located from the traceback 
1 te : report if we blow up. 
11 46 DECODE_FAULT: : entrance 
OFFF 001 4 «WORD  “M<RO,R1,R2,R3,R4,R5,R6.R7,RB.RI,RI0,R11> = entry mask 
ce Fpp8 D 9E 021 48 MOVAB LOCAL_START(FPS , SP i Bt locate the local storage 
50 06 AD 0 F fF 1 4 EXTZV #MASK-ALIGN,#2,SAVE_MASK(FP),RO ; RO = alignment bits 
FF AD 30 1 50 MOVB RO,SAVE_ALIGN(FP) : save them 
FE AD 50 8F 5 1 MOVB #CALL ARGS ,SAVE_PARCNT(FP) ; save the parameter count 
FC AD 894 § CLRB FLAGSTFP ; clear the flag bits 
60 ots *Cr E AM MOVAB W*COND_HANDLER, HANDLER (FP) 3 set up the condition handler 
44 AD 08 AD D F 4 mMOva SAVE _AP(FP) REG_AP(FP) ; move user's AP and FP into place 
4C AD 144 ¢C 9 4 5 MOVAB 4e<CALL_ARGS+ >TAP) ,REG_SP(FP) ; move user's SP into place 
50 AD 13¢ CC 3 A § MOVL 4*<CALL_ARGS-1>(AP) ,REG_PC(FP) ; move PC into grees 
; 14 AD E 40 6 MOVAB REG_RO(FP) 3; Address of current R 
1 BB AD GE 0246 658 MOVAB ORIG _ROCFPS,R1 ; Address to save original RO 
Pe Res Be Re ral: etal 
1 80 90 OSS See ae Hi i Seve Rik? 
1 8) ob O54 S88 MOVa (RO) #,.(R1) [i 
: ° TD OSA es mOVa —-CRODSLERT >» | ive meee 
1 7D 025D 666 MOV (RODS CRIDs : Save SP-PC 
50 0140 CC OD 6 66 MOVL 4*<CALL_ARGS>(AP) ,RO 3; Get value of ‘Pointer A’ 
54 AD 65 D 6 968 MOVL (RO) +, PSL(FP) : Store user's PSL 
£8 AD 0 0 69 98 MOVL oh ay Bie dyad. ; Save handler depth 
FDEO CD) = 80 D $8 679 MOVa (RO)+,USER_ACT_ADR(FP) ; save user setten routine address and 
3 env 
FDE8 CD ! D 73 676 MOVL IRR} 6 PER ACT _ARSCEP? ; Save user action argument 
4 : dD 7 67 MOVL (RO)+,R4 3; Get instruction pattern address 
FDFO gp 3 i) 7A 674 MOVL tt {NSTR_OPCOBE CFP) 3; Get opcode 
1 60 CE O27F 675 MNEGL (RO),R : Get minus signal arg count 
SE FC AE41 ODE 8¢ 676 : MOVAL -4(SP)CR1),SP ; Allocate space for signal arguments 
i o78 : Copy signal arguments to safe place on stack. 
2 SE 00 7 680° MOVL  SP,R ; R2 will step through the List 
1 . *? 2 A 681 MNEGL R ; Get positive signal arg count 
=. 0p D ? § 1$: 7 a (RO)+, (R2)+ : feve a Loneuore of the sigargs 
62 56 aD D0 0293 684 ROVE PSL(FP), (R2) : Store PSL in List 
FODC CD_ CSE 09 9 5 MOVL P,SAVE_SIGARGS (FP) 3; Save address of signal arguments 
FOD8 CD «(04 AE OD } 6 MOVL (§P) ,COMD_NAME (FP) ; Save condition name 
50 54 AD 02 18 F y 3 3 EXTZV #PSLSV_CURMOD,#PSLSS_CURMOD,PSL(FP),RO ; Get current access mode 
F 5 A MOVB RO, MODE (FP) 3 save it for probes 
58 SO AD OD A a MOVL REG CEP) R11 : R11 = Location of instruction 
AD 5B p 6 9 MOVL  R117SAVE_PC(FP) : save it in the return PC 
FOFO CD SsFD er B 38 CMPB #*xfD, INSTR_OPCODE (FP) ; Is it a 2=-byte opcode? 
Sond 0G SRC 898 Pee REG PCCEP? § ey 
58 bg BF 95 INCL Rit : R11 = lh, of next byte 
50 AD OD 3 38 4$: INCL REG_PC(FP) ; increment PC 


\natruct jon stream us 15-S ats 43:32:38 AX/VMS Mac 


| IBSDECODE FAULT = Decode ro V04-00 Page 15 
DECODE_FAULT = major processing routine 6-SEP-1 LIBRTL.SRCJLIBDECODF .MAR; 1 (6) 
C4 3+ 
C4 ‘ 3; R4 now contains the edgresy of phe operand pattern for this inegeuseion. 
C46 701 ; Set the TP bit in the PSL if s on. Then for each operand definition, 
ee , 3 read the instruction stream to evaluate the operand. 
C4 4° 
05 ¢ AD 04 €1 C4 705 BBC #PSLSV_TBIT,PSL(FP),.5$ ; the trace enable bit is clear - skip 
00 54 AD fs E2 0009 7 : BBSS  #PSLSV-TP,PSL(FP),5$ ; set the trace enable bit 
5 D4 : 5$: CLRL RS 3; RS keeps track of number of operands 
D0 7 5 OPERAND_LOOP: 
56 4 9A D £9 MOVZBL (R4)+,R6 3 R6 = operand definition byte 
; 13 02D f BEQL LAST_OPERAND : If so, we're done here 
58 56 «(03 FF D 1 EXTZV #LIBSV_DCFACC,MLIBSS_DCFACC,R6,R8 ; Access type into R8 
3 OODA 71 EQL ‘INVALID TYPE ; Check for invalid type 
06 5 + oc 714 CMPL RB, #LIBSK DCFACC_B : Too large? 
1 A DF 715 BGTRU INVA TYPE : If so, error 
59 56 #05 ~«O ai E1 ig EXTZV #LIBSV_BCFTYP,#LIBSS_DCFTYP,R6,R9 ; Data type into R9 
1 3 E6 71 BEQL  INVAL : Check for invalid type 
oo 65 01 E At CMPL R9,#LIBSK DCFTYP_H : Too large? 
90 tn eB 71 BGTRU INVALI 3; If so, error 
FOF8 CD45 § 9A Ep 720 MOVZBL R6,OPERAND_TYPES(FP)CR5J; Store operand type code 
076 39 F371 BSBW Get SPECI : Get the specifier 
D655 10 F F6 7 ¢ AOBLSS #16,R5,OPERAND_LOOP :; Increment count of operands and loop 
FA f 3: BRB INVALI6_TYPE : Too many operand types 
FA 725 ;¢+ 
6 FA 7 § 3; Come here if an access or data type code is invalid, or if there 
FA 727 ; are too many operands. 
fA 39° 
FA 730 INVALID_TYPE: 
poerog00 "er 0D FA 731 PUSHL #LIBS$_INVARG : Signal LIBS_INVARG 
"GF 01 FB 9 if § CALLS #1,G*CIBSSTOP 
7 734 34 
7 735 ; We now have all of the instruction operands found and their addresses and 
rs § 3; types stored. Move the count of operands to N_OF_OPERANDS and call the 
7 737 ; user action routine. 
nk oo 
7 740 LAST_OPERAND: 
02 54 aD 1 —1 , oes BBC #PSLSV_FPD.PSL‘FP).1$ ; Skip if not FPD 
2 04 C og CLAL Re 3; No operands if FPD 
FDF4 CD 0 § 745 1$: MOVL R35 ,.N_OF OPERANDS (FP) 
Ht AD F 1 744 SH ORIG-ROTFP) z Address of original registers 
FDE8 CD DD 16 2 PUSHL USER_ACT_ARG(FP) ; User action argument 
D D 1A $6 PUSHL FP ; “context” for Signal routine 
OOO00F E8*EF F 1 Pe SHAB USER_SIGNAL 3; Address of signal routine 
FODC CD d re HL Save SIGARGS (FP) 3; Address of signal arguments List 
FE38 CD F 74 PUSHAB WRITE_ADDRS<FP) 3 Address of writeable operands 
FE78 CD oO9F A 7 9 PUSHAB READ _ADDRS(FP) ; Address of readable operands 
FOF8 CD =so9F 4 PUSHAB OPERAND TYPES(FP) : Address of operand types 
FOF4 CD F ¢ PUSHAB W_OF preR DS(FP) : Address of number of operands 
14 AD F 7 PUSHAB REG_RO(FP) ; Address of registers 
54 AD F 754 PUSHAB PSLTFP) ; Address of PS 
10 AD F c 95 PUSHAB SAVE_PC(FP) ; Address of original PC 


L 
ee DECODE FAULT < Galan Stoceesing a "BSER=1982 97:88:38 HONENHS. Sacso, x0e-00 en a 
Address of opeers 
Get address/env eee routine 


DECODF .MAR;1 
FDED cD PUSHAB INSTR_OPCODE (FP) : 
50 b f He mMOVa USER a ADR(FP),RO : 
aisct 3; Call user's action rout 


rt BLB HORMAL JEXIT ; Resume execution if success 
C86 BRw RES IGNA ; Resignal if failure 


Aa 
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- DECODE_FAULT = major processing routine 6=-SEP-1984 11:05: LIBRTL.SRCILIBDECODF .MAR; 1 (7) 
1 3 H 
! i 3 NORMAL _EXIT = Normal End of Instruction Emulation 
3 entered by branching 
1 Ef tered by b hi 
; contains return status from action routine 
} £8 RO i f i i 
é} 726 3 Discussion 
2} ak $ This routine restores control to the user program whenever 
51 7? ; the processing ends without causing an exception. 
2] ore ; When we return, all of the registers, PC, and the PSL are 
21 ah ; set to the emulated values. 
6 51 558 3 The method of leaving consists of pushing the 
oa2) 778 3 user's PC and PSL onto the user's stack putting the saved AP 
51 779 : and FP back in their proper places in the frame and performing 
51 780 ; the indicated adjustme*= so that when a RET instruction is 
51 781 : executed all of the registers up to FP will be restored and 
0351 7 ¢ $ the stack pointer will be positioned to the PC, PSL pair. 
0381 84 . 
0351 785 NORMAL_EXIT: 3 entrance 
00000000'8F 50 O01 8 oe er § CMPL RO, #LIBS_RESTART 3; Restart original instruction? 
03 12 ee BNEQ 10$ ; No, use REG_xx registers 
gcke 30 8 5A 788 BSBW = =FAULT_RESET ; Restore registers 
5E F8 AD 43 35D 789 108: MOVAB SHORT_LOCAL(FP),SP ; shorten the frame 
50 08 ob0 0361 £790 MOVL #8,RO ; RO = size of PC, PSL pair 
32 19 0364 791 BSBB_ Ss TE ST_FRAME ; make sure we have room to push it 
4C AD 08 ¢ 0366 3s SUBL2 #8,REG_SP(FP) ; allocate room on the user's stack 
4C BD 50 AD D 036A 79 Ova REG_PCTFP) @REG_SP(FP) =; push the PC, PSL pair 
08 AD 44 AD 7D beef 794 mMOvVQ REG_AP(FP),SAVE_AP(FP) ; put the user's PC, PSL pair back 
10 AD 97°AF «OE 0 74 795 MOVAB 6°18, SAVE_PC(FPY ; store owr return point 
50 48 AD 3 79 «79 MOVAB FRAME_END?4(FP) RO ; RO = Location of end of frame 
51 4C AD 50 C¢ 8 7D 679 SUBL Ro AEG SP(FP) RI 3; R1 = distance of user SP from it 
52 1 02 OO EF Hy 798 EXTZV #0,#2,R1,R2 : R2 = stack alignment 
06 AD 02 E FO 038 799 INSV Rg AEnOk ALLEN.02 . SAVE _MASK CFP? 3 store it into the frame 
0 is 38D 00 ADDL2 R2,RO ; compute the parameter area location 
FC AO 4651 ~=S FE 8F Es 78 )=—: 0390 01 ASHL #-2,R1,-4(RO) 3 store the parameter count 
04 Ba08 80 RET 3 return (to next instruction) : 
02 te a 1$: REI 3; Return to the next user instruction 


—_———$—$—$— iO" 
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1-009 DECODE_FAULT = major processing routine 6-SEP-1984 11:05: LIBRTL.SRCIJLIBDECODF .MAR; 1 (8) 
9 ; 
2 3 TEST_FRAME = Test Frame Location and Move If Necessary 
3 09 ; entered by subroutine branching 
3 y 3 parameter: RO = Size of Information to be Pushed 
3 13 $ returns with RO = Distance Frame was Moved 
4 F 3 Discussion 
9 i 3 This routine determines whether or not the address given 
9 18 3 by greeks bag RO from the user's stack pointer can be made 
039 1 3 the location ty te a parameter List without the location 
039 0 being within the local storage. If this cannot be done then 
0398 821 3 the entire procedure frame is moved so the condition can be 
039 Hy § 3 satisfied. The distance that the procedure frame was moved 
4 3 is returned in RO. The value is zero if the frame is not 
830 Hy : 3 moved. 
b398 826 : Note: 1. The switch from one frame location to another is~ .° 
0398 : 7 : performed by a single indivisible POPR instruction 
$336 5 8 3 sO we are never in an anomalous state. 
0398 830 : 2. If the frame is moved to a higher address, then 
0398 831 : the saved AP and FP are changed to the values of 
0398 536 3 the emulated registers. The reason for this is 
0398 3 : that the move may over ey a valid frame so it is 
0398 34 Z assumed that the user's AP and FP have been changed 
0398 35 3 by the instruction to information about a new valid 
Bae 36 ; rame. 
38 838 , 
3 39 TEST_FRAME: 3 entrance 
00 oD 039 40 aia 0 3 push a zero 
50 4C AD 50 (C3 O39A 41 SUBL BY REC_SPCFP) RO 3 compute pushed information address 
50 03 CA OQ39F *s BICL2 #3,R 3; align the value 
51 SB AD 9E O3A2 84 MOVAB LOCAL_END(FP),R1 : R1 = end of Local storage 
51 *7 H 8 ne rf: Hats Boek! 3; does push extend below the frame ? 
; no - ass 
53. 5 03; ic AB a6 BicLs #3,SP,_R3 3 RS = aligned stack pointer 
5 ee AF 4 SUBL #26R3 3 peiust for additional pushes 
25 50 OD 48 MOVL p Re 3; R2 = address to} Lowtng moved frame 
5 5 D1 2 49 CMPL R2,R 3; does it extend into the frame ? 
1 1 B 50 BLEQU) 3 3; no = bypass 
52 ; oY “ 2) nove Be oRe 3 yes - use address below the frame 
3 ass 
52 0447 CD 9 F 33 28: MOVAB an Ang -END+1027 (FP) Re ; Ros last possible parameter end 
52 0 oO C4 54 CMPL RO,R 3; does the push end above it ? 
49 18 C7 55 BLEQU 3 no = bypass 
08 AD 444A 7D c9 2$ ova ag6 AP(FP),SAVE_AP(FP) ; change the saved AP and FP 
52. 5 C C 5 BICL #3,R0,R2 : Rg s aligned user stack pointer 
5 i © D 28 3$: SUBL R1,R2 3; R2 = distance of the move 
D D 5 USH R2 3; push the quantity 
6E4 F D 60 PUSHAB (SP)CR 3 push the modified SP 
604 oF DA 61 PUSHAB (FP)LR 3 push the modified FP 
6C4 OF DD 62 PUSHAB (AP)CR 3; push the modified AP 
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DECODE_FAULT = major processing routine 6-SEP-1984 11:05: LIBRTL.SRCIJLIBDECODF .MAR; 1 (8) 
FF ADS F £0 63 PUSHAB SAVE_ALIGN(FP)CR2 3; push the new alignment bits location 
FE AD4 F E4 ee PUSHAB SAVE go had } 3 3 sh the new parameter count address 
23 48 AD4 E8 5 one BRARE .EO*4 CFP) R2J,R3 ; 3 = new frame end + 4 location 
5 ¢ ED 96 SUBL R3,R 5 = distance to user's SP 
7E 53 FE 8F Fi 6 ASHL #-2,R3,-(SP) : 3 sh the new parameter count 
0 51 —E ¢ F6 68 SUBL3 $P,R1,RO ; RO = number of bytes to move 
1 i) iz. § MOVL SP, 3; R1 = location of bytes to move 
D FD 0 TSTL R 3 will we extend the stack ? 
1 FF 71 BGEQ 4 3 no - skip 
5E f 401 og ADDL oh 4 3; yes - extend the stack pointer 
6142 = 61 404 73 4$ MOVC RO,(R1),(R1)CR2] 3; move the frame 
9E bE F6 0409 874 CVILB (SP) +, a(SP)+ ; store the new parameter count 
E 94 040¢ 75 CLR a(SP)+ ; clear the new alignment bits 
7000 8F BA 195 B76 POPR #*M<AP,FP,SP> 3; switch to the new frame 
01 BA Bet 77 5$ POPR #*M<RO> 3; RO = distance frame was moved 
05 Bele are RSB 3; return 


| IBSDECODE FAULT - Decode instruction stream 
-009 DECODE_FAULT = major processing 
418 Bes ; 
41 : 3 
41 4 3 
r} 5 ; 
i 
41 5 § 
41 90 $ 
41 91 3 
41 3 : 
41 9 : 
41 94 : 
0418 B96 
0415 399 3 
415 +4 H 
tig 99 ; 
41 900 : 
0415 901 COND_HANOLER: 
0000 0415 it - WORD 
50 04 AC 7D 0417 90 MOVQ 
0418 904 CMPCOND 
19 3 0425 905 BNEQ 
50 04 Ail DO 0427 906 MOVL 
51 FF AO 90 0428 907 MOVB 
7E FE AD QA OQ42F 908 MOVZBL 
06 a0 O02 OF 51 F o% 3 909 INSV 
-. Ss 4 910 ADDL2 
44 AO 8E 0 043C 911 MOVL 
50 0918 8F C 0440 31g 1$: MOVZWL 
04 0445 91 RET 
0446 914 : 


Cc 10 
routine 


AX/VMS Macro V04-00 


Page 
LIBRTL.SRCILIBDECODF .MAR; 1 


uF as tat 9 $3: 5:5 
6-SEP-1984 11:05:2 
COND_HANDLER = Internal Condition Handler 


parameters: P1 = Signal Array Location 
P2 = Mechanism Array Location 


returns with RO = Condition Response 


Discussion 


This routine is the internal condition handler for 
3 pease s Milne LE Since we don't make constructive use 
of qxcept ons in its main procedure, this routine requests 
resignaling of all conditions it intercepts. 


If the condition is SS$_UNWIND which indicates that an 
unwind is about to take place, then it restores the argument 
count longword in the parameter List for the procedure so the 
unwind will work properly. 


3 entrance 
0 3: entry mask 
4(AP) ,RO ; RO,RI = condition array locations 
SS$_UNWIND,4(RO) ; is this an unwind ? 
1$ 3 no - bypass 
4(R1),R0 ; RO = frame Location 
SAVE_ALIGN(RO) R1 ; R1 = safe copy of alignment bits 
SAVE-PARCNT(FPS,-(SP) —; push the argument count 
R1,#MASK_ALIGN,#2,SAVE_MASK(RO) ; store align bits in frame 
R1 ; add to the frame location 


P)+,FRAME_END(RO) 


(SP) store the argument count 
#SS$_RESIGNAL ,RO 


resignal the condition 
return 
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IBSDECODE _F AULT - Decode instruction stream 15-SEP-1984 23:55: AX/VMS Macro V04-00 Page 21 
1858 DECODE_FAULT = major processing routine g-sEp-19be $708 :38 YETGRTL. SREILIBDECODE .MAR: 1 . (9) 
44 16 ;¢ 
44 "Ts inptructten operand petters tables. There are two tables, one for 
44 18 ; l=byte opcodes and j e other for 2-byte opcodes. Each entry has the 
44 19 ; hh gg from the beginning of the table to the pattern which describes 
re ; that instruction. If the offset is zero, no such instruction exists. 
44 
44 TAB_1BYTE: 
400° 044 4 «WORD PATRN_HALT-TAB_1BYTE ; 00 HALT 
400° 044 2 5 ° PATRN_NOP-TAB_TBYTE ; 01 NOP 
400° 044A § ° PATRN_REI-TAB_1BYTE 3 ¢ REI 
400° 044C 3 ‘ PATRN_BPT-TAB_IBYTE 3 BPT 
* 044 8 -WORD PATRN_RET-TAB_IBYTE 3 04 RET 
400° $2 9 ° PATRN_RSB-TAB_ IBYTE ; 05 RSB 
400° 04 0 ~WORD PATRN-LDPCTX-TAB_IBYTE ; 86 LOPCTX 
400° 045 1 -WORD PATRN_SVPCTX-TAB_IBYTE ; 8 SVPCTX 
401° $28 ¢ -WORD PATRN-CVTPS-TAB_TBYTE ; 08 CVTPS 
401° 045 3 ° PATRN_CVTSP=TAB_IBYTE ; 09 CVTSP 
406° 045A 934 WORD patenctarstan tT 1BYTE ; OA INDEX 
40D° 045C 935 . PATRN_CRC-TAB_ 1BYTE ; 08 CRC 
att 45— 9 $ «WORD PATRN_PROBER-TAB_1BYTE ; oc PROBER 
412° 046 3 ° PATRN_PROBEW-TAB_IBYTE ; OD PROBEW 
i 46 938 -WORD PATRN_INSQUE-TAB_IBYTE ; OE INSQUE 
419" 0464 939 » PATRN_REMQUE-TAB_IBYTE ; OF REMQUE 
41C° 046 940 «WORD PATRN_BSBB-TAB_IBYTE ; 10 SBB 
41C' 0468 941 W ATRN_BRB-TAB_TBYTE 311 RB 
041C' 046A 99 «WORD PATRN-BNEQ-TAB_1BYTE  ; 12 BNEQ,BNEQU 
041C° 046C 94 -WORD PATRN_BECL-TAB_IBYTE : 7 BEQL ,BEQLU 
Role, rh 3 944 e PATRN_BGTR-TAB_IBYTE 3; 14 BGTR 
41C° 04 945 -WORD PATRN_BLEQ-TAB_IBYTE $ 72 BLEQ 
O41E* 0472 308 . PATRN_JSB-TAB_TBYTE : 16 JSB 
41E° 0474 94 ° ATRN_JMP-TAB_ 1BYTE $ i¢ JMP 
41C* 047 948 -WORD PATRN_BGEQ-TAB_IBYTE 3 33 BGEQ 
41C° 047 949 -WORD PATRN_BLSS- 1BYTE 3; 19 BLSS 
1C*° 047A 950 -WORD PATRN_BGTRU-TAB_IBYTE ; 1A BGTRU 
041C* 7¢~ =: 951 «WORD PATRN_BLEQU-TAB_ 1BYTE ; 18 BLEQU 
041C° 047 936 -WORD PATRN_BVC-TAB_IBYTE se BVC 
41C° 95 -WORD PATRN_BVS-TAB_IBYTE 3; 10 BVS 
41C* 954 WORD PATRN-BGEQU-TAB_IBYTE =; 1€ BGEQU,BCC 
41C° 4 955 -WORD PATRN_BLSSU-TAB_IBYTE ; IF BLSSU,BCS 
g: 6 936 «WORD PATRN_-ADDP4-TAB_IBYTE ; 20 ADDP4 
425° 95 -WORD PATRN_ADDP6-TAB_IBYTE : 21 ADDP6 
2. A o28 - WORD ATRN_SUBP4-TAB_IBYTE  ; § SUBP4 
* 048¢ 95 WORD TRN-SUBP6-TAB_IBYTE SUBP6 
g, 960 -WORD PATRN_CVIPT-TAB IBYTE ; 24 CVTPT 
7 961 ~ WORD TRN_MULP-TAB Tevre 3 a MULP 
g, 9 96 -WORD PATRN_-CVTTP-TAB_IBYTE ; § CVTTP 
* 049 96 -WORD PATRN_DIVP-TAB tert : IvP 
° $36 964 - WORD ATRN_MOVC3-TAB_IBYTE =; 3 vcs 
* 049 302 -WORD PATRN_CMPCS-TAB_IBYTE ; CMPC 
* 049A 6 -WORD PATRN_SCANC-TAB_IBYTE ; 2A SCANC 
* 049C 96 -WORD PATRN_SPANC-TAB_IBYTE ; 2B SPAN 
* 049 96 -WORD PATRN_MOVCS-TAB_LIBYTE ; 2C MOVC 
* O4A 3 -WORD PATRN_CMPCS-TAB_IBYTE ; 2D CMPC 
41° QGA -WORD PATRN_MOVTC-TAB i : de MOVTC 
41° Q4A 97 -WORD PATRN_MOVTUC-T BYTE ; 2F MOVTUC 
48° 04A6 972 -WORD PATRN_BSBW-TAB_IBYTE ; 50 BSBW 
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55. Macro v04-00 1 Page 
Decode instruction stream . at 3°3 oz lene #7 :33:38 CTORTL. SREICISDECODE .MAR: 1 i) 
L IBSDECODE _F AULT DECODE_FAULT = major processing soa BRW-TAB_1BYTE ; 31 wy 
Gh: Beak $e WORD ATAN-evTuLTage layne 3 $2 evr 
RD m rs : 34 
4D' OAC 975 “WORD PATRN_MOVP-TAB Tere : 35 = CMPP3 
430; QGak 976 “WORD PATRN-CRPPS~TAB_TBYTE CVTPL 
450° 048 ? ‘ ATRNICVTPL=TABCIBYTE — ; PPG 
i: ae ARR At AR eS 
458° 04 0 ° TRNCMATCHC@TAB“IBYTE 
ri : 188 1 . PATRNCLOCCCTAB 7 a fe $e 
ee RBS alte TP Rela 
« : 3p 
GA’ O4BE 984 < PATRNACOUC TAR IOYTE. 6¢ gp ACB 
461! sco 2 . TRNCMOVAW=TAB BYTE =; HAW 
ae oe ctrl ir 
ee OCs 989 “WORD PATRNADDE §-TAB>IBYTE ite Suaeg 
. - : 4 
68' 04CA 990 “WORD PATRNTSUBF3-TAB"IBYTE 44 MULF 
6E' O4CC 991 “WORD PATRNZMULF2-TAB-IBYTE — ; 45 MULF 
468! ‘ob 44 “WORD PATRNZMULFS-TAB-IBYTE =; 46 DIVE 
6E' 0400 99 . ATRNIDIVE@-TABLIBYTE ==; F 
68° 04D2 994 "WORD PATRNCDIVE a oy a 4 
d7p: Gee $96 WORD PATRNCWTFO-TAB-IBYIE 3 48 CVT EW 
RD o te 5 4A 
75" 0408 997 "WORD PATRNTCVIFLATABTIBYTE ‘iB OCVTR 
478' O4DA 998 ‘ PATRN_CVTRFL@TAB BYTE  ; 4C = CVTBF 
478' O4DC 999 , PATRN-CVIBF=TAB_TBYTE =; TWF 
a nig ae eae i ie 
« : OF 
Agi; Q4Ee 1008 ¢ Lt dl, 
484° 04E4 100 , ATRNIMOVF-TABTIBYTE =; PF 
He ee ee Rome 
489" O4EA 1 TRN-TSTF-TAB_ TBY : DF 
a PNR eeRee-ipviE pe 
He ‘fh 1010 "WORD PATRNZCVTFD-TAB“IBYTE ifs I 
i tF6 1012 "WORD PATRN_ADAWI~TAB_1BYTE $B sets 
4 s : 
8 LS een 
FC 1015 . ATRN_INSQHI-TAB_IBYTE  ; Sati 
at ce a eS 
WORD = — im YTE i 
A4* 0502 101 TRN-REMQTI-TAB-18 ; D 
Be ee ENR ib 
Bae Be RACE a 
ce ee Meier tee mS 
ee ae RC |g aN 
AA’ 3] 1087 "WORD PAT WACVTDB@TAB~IBYTE é oe eVIbU 
dBi* 0518 1099 "WORD PATRNZCVTDW-TABLIBYTE 
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- 755: Macro Vv04-00 Page $3 
= instruction stream 15-SEP-1984 195: AX/VMS RAR: (a) 
“ogee dat DECODE FAUL = aajor processing routine 6S pa} 984 #7508536 ng 0 = ampeceae M 
' VIDL-TAB_1BYTE ; 6A CVTDL 
oe a me CT LS 
487° 1 oW . TAB. : 
’ RN-CVTWD-TAB-IBYTE =: 6D  CVTWD 
280" 1934 WORD PATRNCCVILD=TAB 1BYTE ; 6€  CVTLD 
co’ 1035 -WORD PATRNTACBD-TAB_TBYTE : 6F ACBD 
4C5° 1 “WORD PATRNIMOVD=TAB-IBYTE =; 0 OVD 
ag me Mm 
tea ose ‘ “TSTD-TAB_TBYTE. : 78  TSTD 
CB’ 05ec 1 “WORD PATRN“TSTD-TAB & EE 3 STD 
CD° 104 “WORD PATRN“EMODD-TAB_1BY ; 
' RN“POLYD-TAB_1BYTE : 75  POLYD 
iB aH “WORD PATRN=Cw DF-TABLIBYTE =; 76 = CVTDF 
000 104 Wd ; 
, : ATRN_ASHL=TAB_IBYTE : 78  ASHL 
ee es CBE PAIRN-ASMOCTABCIBVIE «79 SHG 
des: 3 ¢ 1029 ow PATRN-EDIV-TAB_1BYTE : 7B EDIV 
nig S3—E 104 ; PATRN_CLRQ=TAB_1BYTE ; 7C  CLRQ,CLRD,CLRG 
nit 1 rk *W ATRN-MOVQ-TAB-1BYTE : 7D  MOVQ 
tFe. bee : PATRN-MOVAQ-TAB_1BYTE ; 7E § MOVAQ,MOVAD,MOVAG 
ae ¢ i 39 “ PATRN-PUSHAQ-TAB_1BYTE : 7F | PUSHAQ,PUSHAD,PUSHAG 
et 546 105 “WORD PATRNTADDB2-TAB_TBYTE : 80 ADDB 
eee tt ee ieee if ee 
Bers: O5th 1988 ‘ “SUBBS-TABTIBYTE § 
049° 054C 1055 “WORD PATRN7SUBB TABTIBYTE =; 83 UBB 
04F6" 054 1056 “WORD PATRN7MULB “TABCIBYTE 84 MULB 
04F9" 0330 105 “WORD PATRN-MULB ~IBYTE : 85 MULB 
4F6" 0552 105 “WORD PATRN“DIVB2-TAB~ 
’ VB3-TAB-IBYTE : 87 ODIVB 
Bcr8 bee¢ i $ “UORD PATRNDISB “TAB-IBYTE : 88 B1SB¢ 
SE ee iS Be Ce 
iat gee i 8 “WORD PATRN“BICBS-TAB_1BYTE : 8B  ®BICB 
re ia 10s AER EACHRRRE TAS HBrE EAS ae 
at 365 1968 zr “MNEGB-TABIBYTE =: 8E  MNEGB 
4FD' 056 1066 “WORD PATRN“MNEGB-T “IBYTE ; BE RINEGR 
500° 0564 106 WOR PATRN-CASEB-TAB" IBY : BF CASE 
ae 268 i rt) HOR PATRNTCRPBTAB BYTE : 91  CMPB 
CA a Ek 
apse gece loys ; “CLRB-TABTIBYTE : 94 CLRB 
ae : 1 ds "WORD PATRNCLRB-T ~IBYTE 94 CLRB 
9° 107 “WORD PATRN7TSTB-TAB_ ; 
' NCB-TAB-1BYTE : 9 INCB 
; , i 1 a : nD PATRNTOECB=T WeyTe ; 39 DECB 
At 76 107 “WORD PATRNCVIBL-TAB_1BYTE : 98 CVTBL 
10! "i 107 RD PATRN"CVTBW-TAB-IBYTE : 9 CVTBW 
i e109 “WOR PATRN-ROVEBLTABIBYTE 9A ROVZBL 
+ Bee 188 : a BYTE :9C  ROTL 
tf 7E 1 “WORD PATRNROTL-TAB_ ; OTL 
TRN"ACBB-TAB-IBYTE :9D A 
atc i WORD PATRNCROVABL TAB YTE : 9€  MOVAB 
1E° 1 5 “WORD PATRN7PUSHAB-TAS 1BYTE : 9F PUSH 
9E° 1084 “WORD PATRNTADDW2-TAB_TBYTE =: A ADDW 
S1F* § 1085 “WORD PATRNTADDWS-TAB-IBYTE : A ADDW 
96° 058A 1 “WORD PATRNTSUBW2-TAB"IBYTE =: A SUBW 
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instruction stream 


a dk 8 8 a at td = 4 ss 2 = 2 = 2 — So 2d 2 2 9 2d 2 5 4 4 


PATRN_SUBW -jM. 1BYT 
PATRN_MULW2*TAB_IBYT 
PATRN_MULW =TAB-1811 
PATRN_DIVWe-TAB_IBYT 
PATRN_DIVW5-TAB_1BYT 
PATRN_BISWe- AB ievT 
PATRN_BISW5-TAB_IBYT 
PATRN_BICW2-TAB_IBYT 
PATRN_BICWS5-TAB_IBYTE 
PATRN_XORW =TAR TeVTE 
PATRN HORNS -TAB_1BYT 
PATRN_MN Gun TAR Te vTE 
PATRN_ “CASE U-TAB 1BYT 
PATRNAOVU>T AB_TBYTE 
PATRN_CMPW-TAB_ Wyte 
TRN_MCOMW-TAB_IBYTE 
PATRN Bi Tut . TBYTE 
ATRN_CLRY= “1BYTE 
PATRN_TSTW-TAB_IBYTE 
TRN_INCW-TAB_IBYTE 
TR YTE 


ATRN~XORL i 
PATRN-MNEGL-TAB_1 
PATRN-CASEL-TAB-1 
PATRN-MOVL-TAB_ 
PATRN-CMPL-TAB 
PATRN-MCOML-TAB 
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< Page 44 
; /VMS Macro V04-00 1 (10) 
n Rage 1986 47:08:20 EUTaRTE. Rec IBDECODF .mAR 
peresece ar eae processing routine 6-SEP  acek caved 
L IBSDECODE FAULT DE CODE _F AUL least pATan- foe T48-96V1 ; 4DED cvTWG 
‘ N rane : 4EF 
SA ee MS sie: SED Aas 
ee Ricans tie Gee) 
AF* O8E8 4 "UORD PATRNCHNEGG-TAB ph 
oe Be te ae a3 popes 
* OOEC “WORD — PATRN-EMODG-TAB_ BYTE ; 
: 126 ° RN_POLYG-TAB_ ; 56FD CVTGH 
BS RENMEI HE 
* O6F ~ WORD ; 
, : S9FD 
eo : i 
a a 
0 «WOR ; 
000 O6FC 127 “WORD : 5DFD 
1074 ; SEFD 
ain 0 1275 “WORD SFr ome 
000 1399 "WORD rs tH ate 6d 
: i ae eae i ae tee 
1° A 1 9 -WORD PATRN_SU H2=TAB SBYTE : 64FD MULH 
Baca oroe 1585 Sr Sr ey es BULK 
ci 1388 WORD PATRNRULHS-TAB“SOVTE 66FD DIVH 
C4" 19 } “WORD PATRN_DIVHE-TAB_ BYTE ; 67FD CVTHB 
Ci' O712 1284 os me LS at : OBFD CVTHE 
304) 0716 1g85 “UORD  PATRNTEVIHMISTABnSBYTE ¢ OOED VIMY 
cg" 18 1686 re em Sy Le DA ¢ GAED CVTHL 
cB" 18 | 4 «WORD PAvenevrta ct SBYTE ; 6BFD Md ha 
0 Ce. Bore 4880 ee PATRATEVTRICTAD bere : OCFD CVTWH 
a If 1390 PATAN-CVTWH-TAB-SBVTE : SerD EVIL 
3p1° 3 1 ' ‘ ATRN_ VILH-TAB-2BYTE =: 6€ CBH 
ov 159 . 4 N-AOWH-TAB-SBITE : OTED CMP 
ie: ° PATRN-CRPH-TAB Ad 7 pep MNEGH 
A me ret a 
DaEP* OPE 159 "NORD PATRNZPOLYH-TAB-OBYTE  FerD CVENG 
a Be eter et ith 
Fi" ; WORD : 
1301 “WORD ; 79FD 
1 § * WORD 3 7AFD 
A lage WORD TE : 7CFD CLRO, 
. RO-TAB_2BY : mOvO 
+ BORE é “WORD PATRNCROVO-TAB 5 A : PED MOVAO aa 
Fe Oneh 1309 "UORD  PATRNCROVAO-TAB BBYTE 2 PEED PUSHAG DUS 
0762 1308 "WORD PATRNCPUSHAD-TAB~ t foro 
FC* O74 ~ WORD ; 
i 1 r 3 FD 
1 131 qr 3 fp 
omett “WORD ; B4FD 
D74E 1314 “WORD 


ee 


| 


1 Pee" 4) 


Be 97:08:20 FOTONTE eResCIbOE coor .MAR; 


oan 


K 10 
outine 


de instruction stream 
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= Deco 
DECODE 


1 imate thtamatd 


VLOWLOK MUM ITNOF. OC LOWS 


Fe ee Fe Se SS FS FS FS FS FS FS FS FS FS FS FS FS FS FHS FES HS HS FS FSS SSS FS SS SS SS SCS SS FS SS SS SS FCS SSSR SSR SCS SESS SSSR SR SESE SCR SESE SCR SE SCRE 


2BYTE 
2BYTE 


CVTFH-TAB_ 
CVTFG-TAB_ 


PATRN 
PATRN 


NOR. DEO MK OWMIN TFN OR. DAO CUP ~TFN OR. DAO MUM TMNOR. DHOOM CUM TFNOR. DOOK—TUIMTN DOO 
III OI OOOO OOOO PVPS VPP VII EF SF SF SF FF EFF TFT NAIUAIUAUTIUANULIN OOOO O0O oor 
a talc tel elite ile oil seal ell ial ad lh al nl ad lh lh lh lh lh lh lh a lh hh lh dh lh eh lh lh lh el el lh lh ended el eee nde aie al tel add 


OOO OO 


PRS RRARNSISSSSSYONN LOS BIS SBS SBONS POS SWOYE LOS USI S SES EES 


oooow- COOOSCSCCCOCCCCCOCOOCCOOOCO OOOO OO OOO OO OOOOS 
SSSSSSSSSSSSSSSSSSSuSSSSSSSSSsssosSsessSsS 


OOOSCoMsSOOSoOoooSooSo oo 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


MAR; 1 
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IBDECODF 
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oo 
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AULT = major processing routine 


instruction stream 


— 
a 
2 
< 
fe 
‘ 
8 
Y 
ao 
28 
_ 
ae 


SHAQAAOAOOAAHAHAHAHAAAAGHAHAAHAHOHAAHHAHSHAHAAHHAAAHAHAHHAHAAHAAAAAAAaABAAaaaaaa 


ATRN_CVTHF-TAB_2BYTE 


CGOOQOOOOOOOOOOOOOOOSOGOOSOSOSSOSOSOSOSOCOOCCOSCOOOOOSSOSOCSOOOOOOooO 4. 


i OC OO ee 


NT O00 ££ OWOWT 00 Cf VOWOU. 00 Ff UWOW ST 00 Cf VO WOWT 00 tf UOWOW-T 00 tf VOWOW-T OO fUWOTW 
BUIUVVYUVYOOO|N BOO] WU i a a ee a a 4 QO 8 EEOC 
OoOOOOOOOCOCOCOOOOCOOOOOOoOO COOCCCOOCOOCOOOOOOOOOOOOOOOOOOOO 
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407° 4 14 -WORD PATRN_CVTHD-TAB_2BYTE ; F7FD CVTHD 
§ 14 «WORD 3 4 a 
14 » WORD 3 FOFD 
A 14 » WORD 3 FAFD 
C 14 » WORD ; FBFD 
1434 - WORD : FCFD 
00 40 1435 -WORD 0 3 FDFD 
0000 0842 1436 «WORD 0 ; FEFD 
0000 0844 1437 -WORD 0 3 FFFD 
0846 1438 
0846 1439 3 
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a 
ne 


or 
m 

oe 
oo 
mo 


*+ 
; Instruction operand patterns 


; Each gattern is defined using the macro OPDEF whose arguments 
; describe the access type and data type of the operands. The operand 
; codes are of the form x' i y'' is 
; the data type. 


‘xy’, where s the access type and 


PATRN_HALT: 
PATRN-NOP: 
Pp . 


2.00 00 09 C9 C0 Cd C9 C9 CD. 0D C0 CO CD CD00 0D 


PATRN_CVTPS: 

PATRN_CVTSP: 
OPDEF RW,AB,RW,AB 

PATRN_INDEX: 
OPDEF RL,RL,RLRL,RL,WL 


PATRN_CRC: 
OPDEF AB,RL,RW,AB 


PATRN_PROBER: 
PATRN~PROBEW: 
OPDEF RB,RW,AB 


PATRN_INSQUE : 
OPDEF AB, AB 


PATRN_REMQUE : 
OPDEF AB,WL 


PATRN_BSBB: 
PA 


PATRN~BLSSU: 
OPDEF 6B 


PATRN_JSB: 


SOOOCOOCOSOSOSOOOSOS SOOO OOOSOOOOOOOOSOSOSOSOOSOOOOOO OOOO O OOOO OOOOOO OOOO 
BS ERIP IPI INIMPIPININIPIPINIANYIYI Fi FEF OO COCO GV CID.WIWWIWWIR OO NIN NNPAAAAAAAAAAAAAAOAOOAAO 


LDQLPLDPPLPDPPPAAPAAPAAAA DAD AAAs PEPE PLP PPP PPP PPP PPP PPE SE 


: 
 PATAN-BUE 
¢ PATRN-BVS: 
3 PATRNBGEQU: 
5 

5 
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64 14 : PATRN_JMP: 
64 1499 PATRN_PUSHAB: 
oe ! 9 OPDEF AB 
, ? 1 § PATRN_ADOP4: 
1503 PATRN-SUBP4: 
66 1504 PATRN-CMPP4: 
66 1505 PATRNIMATCHC: 
re 1 $ OPDEF RW,AB,RW,AB 
68 13 8 PATRN_ADDP6: 
68 1509 PATRN-SUBP6: 
1510 PATRN-MULP: 
4 1511 PATRN_DIV 
OBS : \§ RW,AB,RW,AB,RW,AB 
872 1514 PATRN_CVTPT: 
87 1319 PATRN_CVTTP: 
+H 1218 OPDEF RW,AB,AB,RW,AB 
087 1518 PATRN_MOVC3: 
878 1519 PATRN_CMPC3: 
th 13 9 RW,AB,AB 
o87c 15 : PATRN_SCANC: 
087C 1523 PATRN_SPANC: 
Baas 3 ¢ OPDEF RW,AB,AB,RB 
0881 13 6 PATRN_MOVCS: 
0881 1527 PATRN-CMPC5: 
83 y 13 8 OPDEF RW,AB,RB,RW,AB 
08 7 1530 PATRN_MOVTC: 
OB ; 12 ; sarmceamg RW,AB,RB,AB,RW,AB 
O88E 15 PRN tr 
OBE 1534 PATRN_BSBW 
88E 1535 PATRN_BR 
BS is " 
0890 1538 PATRN_CVTWL: 
0890 1539 PATRN-MOVZUL: 
+94 1¢29 OPDEF RW,WL 
$89 1 4g PATRN_CVTWB: 
3 : rf OPDEF RW,WB 
96 1343 PATRN_MOVP: 
9% 1 4g PATRN_CMPP3: 
+4 : 2 OPDEF RW,AB,AB 
9A 1 rk PATRN_CVTPL: 
aA 1 9 OPDEF RW,AB,WL 
9— 1 : PATRN_EDITPC: 
; ' 7 OPDEF RW,AB,AB,AB 


=-r 


a 
“"e 


uction stream 
major processing routine 
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mo 
L ie J 


>>>>r rr rrrPp 
RWROOO SINAN 


PATRN_PUSHAW: 
OPDEF 


SOC CSCC SOS 
Rettetetstspeated 
COO0O8 FH LHL HS ee 


a a a a me ed ed a ed od ed od od od od od dd 


POAEAAAAOCOAASO 


PATRN-CVTRFL: 
OPDEF 


PATRN_CVTBF : 
OPDEF 


SOOOCOOGOSGOOSOOOSOOSOSOOOOOOOOSOSOSOOSoOoOoOoOS 


SVCVCGCIGI GG AMAOAAAAAAAMOAOOOOO 
SUV FF Fh D> Sb BNI ES SOS SOM MmMm 


C 11 


RB,RW,AB 
RW, RW, MW, BW 
AW WL 


Be 


RF MF 


RF RF WF 
RF ,WB 


RF WW 


RF WL 
RB WF 
RW , WF 
RL WF 


RF RF MF BW 


RF ,WF 


RF ,RF 


RF 
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1g PATRNEMODE : 
1 OPDEF RF,RB,RF,WL,WF 


PATRN_POLYE : 
OPDEF RF,RW,AB 


PATRN_CVTFD: 
OPDEF RF,WD 


— 


PDEF RW,MW 
PATRN_ INSQHI 
PATRN- 


MMMMMmMmMmmMmmmmmmmnoOCCOO 


>> 


AB,AQ 


ATRN_REMQHI: 
ATRN_REMQTI: 
OPDEF 


vv 


AQ, WL 


PATRN_ADDD2: 
PATRN_ SUBD: : 


PATRN_ “DIVvD3: 
OPDEF RD,MD 


PATRN_ADDD3: 
PATRN_SUBD3: 
PATRN_MULDS: 
PATRN_DIVD3: 
OPDEF 


RD,RD,WD 


PATRN_CVTDB: 
OPDEF RD,WB 


PATRN.CVTDW: 
OPDEF RD.WW 


PATRN_CVTOL: 
PATRN_CVTRDL: 
OPDEF 


DDE AAAA AA AAA AA AAA AAA AA AAA AAA AAAA AAA AAAS 


DANA AT ANE EERE RRR RE 


RD ,WL 


bas bea baa baa baa aa aca teas ta a boa baa eae tea bea bealiilailailailailailailaiiailailailaiiaal 
UMNO OOST TS SP PP FP NNWEF SF LQOQCCOCOOSS SSS SOSOP PP PF NNNNGS SSS LHS SSS HOO OOO IG 


PATRN_CVTBD: 
OPDEF RB, WD 


PATRN_CVTWD: 
OPDEF RW, WD 


ONAN WP @§ 9 OO NAVE WIN OS OOD NAME WN SO OD NAME WN O OD NAME WIN OOONOUS 


PDORAOOAAO 


PATRN_CVTLD: 
OPDEF  RL,WD 


-r 


b ERE CORE FLT 


SOSOSCOCSOSOOSOSOSOSOSOOSOOOSOOOOOOOOOOOOOOOOOO 
DOOOOOOO OOOO ODO OOODOOOOODOOOOOODOOOODODOOODOODOOVDOOVOVOVDOODOOODOOODOOOOO 


a ee eo a od 


MARAOHOOOOOOOOD YP INNES FSVMINGI CSC WDOOlL SF LFOCOCCTC OOOWIW SS mmm 


BAO 


tr uction strea 


PTO ACES 
OPDEF 


OPDEF 


PATRN.TSTD: 
OPDEF 


PATRN EMO08 : 


PDEF 
PATRN_POLYD: 
OPDEF 
PATRN_CVTDF : 
OPDEF 
PATRN_ASHL : 
OPDEF 


5 
5p PATRN_CMPD: 
9 
§ 
5 
5 


PATRN.ASHQ: 
96 OPDEF 
8 PATRN_EMUL: 

9 OPDEF 


PATRN_EDLV: 
OPDEF 


PATRN_CLRQ: 
OPDEF 


0 

1 

g 

4 

5 

5 PATRN_MOVQ: 

8 OPDEF 
0 PATRN_MOVAQ: 

1 OPDEF 
j PATRN.PUSHAQ: 
4 OPDEF 
fe 

g 

4 

5 


~" OPDEF 


E 11 
ys -§ 


~ najor processing routine 6S 


RD,WD 

RD,RD 

RD 
RD,RB,RD,WL,WD 
RD,RW,AB 

RD ,WF 
RB,RL,WL 
RB,RQ,WQ 
RL,RL,RL,WQ 
RL,RQ,WL WL 
wQ 

RQ,WQ 

AQ,WL 


AQ 


SEP-1986 11:08:20 
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LIBRTL.S 
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Page (i 
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So 


PPADS SSSA SITU UTI BS 


DONIAMAUVIVIVIVIVIPININIS SF SF OOOO OOO SSO TNTHHNOO 


i 


AAA HHH | 
Cc 


rs 


truction stream 


= major processing routine 


7 a DEF 
PATRN_MNEGB: 
PATRN_MOVB: 
PATRN_MCOMB: 

OPDEF 
PATI CARES 
OPDEF 


PATRN_CMPB: 
PATRN_BITB: 
OPDEF 


OPDEF 


PATRN_TSTB: 
OPDEF 


PATRN_INCB: 


40 

41 

28 p 

44 

45 

46 PATRN.CLRB: 
4 

48 

i 

51 

2¢ BATANS “DECB: 
54 OPDEF 


PATRN_CVTBW: 
PATRN_MOVZBW: 
OPDEF 


PATRN_ROTL: 
OPDEF 


PATRN_ACBB: 
OPDEF 


786 p 
137 P 
7 
738 
760 
761 
roe 
76 
764 
765 
£66 
76 
6 
§ PATRN_MOVAB: 
of OPDEF 
748 
774 
rhe 
rns 
77 
77 
? 

? 
782 


~ OPDEF 
PATRN_MNEGW: 


F 11 


RB,RB,WB 


RB,WL 


RB, WW 
RB,RL,WL 
RB,RB,MB BW 


AB, WL 


RW, RW, WW 
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ac 
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PATRN_MOVW 
PATRN_ “RCOMU: 
OPDEF RW,WW 


3 
4 
5 
5 PATRN_CASEW: 

8 OPDEF RW,RW,RW ; User must understand branch table 
1 


SooS i 
SAAAAAO 


vv 
> 
~ 
» 
{- 


oP 5 WW 


WOWODOODOOOOOOOOODOOOOOO 


$ OPDEF RW 


: PATRN_INCW: 
PATRN_DECW: 
OPDEF MW 


COOooooooooo 
3oo0o0ono 


“— RL,RL,WL 


10 

1} 

13 

14 

12 

i 

8 C: 

0 PATRN_SBWC: 

1 OPDEF RL,ML 
i PATRN_ADDL3: 

4 PATRN_SUBL3: 

5 PA MULL3: 

; 

3 

? 

§ PA 

4 

5 

§ RL WL 
: 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


RL,RL,RL ; User must understand branch table 


LIBSDECODE_FAULT 


a 
@ 
QP 


OWDOOOOOOOOOOOOOOOOOOOOOONO | 


AAMAS QOMMMMOOOn > >> PAIN 


oO SSSSss 
oO 


SOOOCCOCOOSCSOOSOSOSOCOSOOOOSOOOOOOOOOSOOOOOSOOOOoO MO 
33 


c- 
cS 


$s 
T 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


truction stream 
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PATRN_CLRL: 
PATRN-MOVPSL : 
PDEF 


TRN_TSTL: 


PATRN_ 
PATRN~PUSHL : 
OPDEF 


PATRN_INCL: 

PATRN_DECL: 
OPDEF 

PATRN_MOVAL : 
OPDEF 


PATRN_PUSHAL : 
OPDEF 


VEU O ODNAUES HO OONO 


PPA DPE DAD MSs & & 


66 PATRN_BBSS: 
PA 


“BBS 
69 PATRN~BBCC: 
0 PATRN~BBSSI: 
71 PATRN~BBCCI: 
0 OPDEF 
4 PATRN_BLBS: 
5 PATRN~BLBC: 

PDEF 


78 PATRN_ 
79 PATRN 


PATRN_CMPV: 
PATRN~CMPZV: 
OPDEF 


OO NAUL WIN 


PATRN_INSV: 
OPDEF 

PATRN_ACBL: 
OPDEF 


PATRN_AOBLSS: 
PATRN~AOBLEQ: 
OPDEF 


woooovoo 
Au kwnr— 


H 11 


RL,RL 


WL 


RL 


ML 


AL WL 


AL 


RL,VB,BB 


RL,BB 


RL,RB,VB,WL 


RL,RB,VB,RL 
RL,RL,RB,VB 


RL,RL,ML,BW 


RL,ML,BB 


15*SEP=1984 23:55:56 VAX/VMS Macro V04-00 p 
Breer eas 1358838 ETERS eae ee eee oee mans1 t% cf 
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984 1897 

984 1 38 PATRN ~S08G50: 

984 1 PATRN_SOBGTR 

38% ! oP DEF ML BB 
987 13 PATRN.CVTLB: 

+ 44 ! ? OPDEF RL,WB 
SBA 13 5 PATRN_CVTLW: 

5 13 $ OPDEF RL,WW 
98D 13 3 PATRN_ASHP: 
gop 1398 OPDEF RB,RW,AB,RB,RW,AB 
9C4 1911 PATRN_CVTLP: 
ace 1916 OPDEF RL,RW,AB 
act 1914 PATRN_CALLS: 

43 1312 OPDEF RL,AB 
9(B 1319 PATRN_CALLG: 

ace 1318 OPDEF AB,AB 
9CE 1920 PATRN_CVTDH: 
ace 1 OPDEF RD,WH 
901 19 5 PATRN.CVTGE : 
+4] : OPDEF RG,WF 
904 19 § PATRN_ADDG2: 
904 1927 PATRN_SUBGe: 
904 19 3 PATRN_MULG2: 
904 1929 PATRN_DIVG2: 
He \° » oP DEF RG,MG 
907 19 § PATRN_ADDGS: 
907 19 PATRN_SUBG : 
907 1934 PATRN_MULGS: 
907 1935 PATRN_DIVGS: 
id 13 § OPDEF RG,RG,WG 
90B 19 3 PATRN_CVTGB: 
+9 | 132 OPDEF RG,WB 

DE 192) PATRN_CVTGW: 
He 1308 OPDEF RG,WW 

€1 1pe8 P PATRN_CVTGL: 

E1 1945 PATRN_CVTRGL: 

5} 1398 OPDEF RG,WL 

E4 1948 PATRN_CVTBG: 

+) ! 4 OPDEF RB,WG 
9E7 1951 PATRN_CVTWG: 

9E7 1 § OPDEF RW,WG 
9EA 1 


J 11 
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SEA 1 PATRN_CVTLG: 

+40 ! OPDEF RL,WG 
SED 1 ; PATER AOS: 

3 12 8 OPDEF RG,RG,MG,BW 
OF 13 PATRN_MOVG: 

9F2 1 PATRN_MNEGG: 

4 12 OPDEF  RG,WG 

OF 198% PATRN_CMPG: 

Be 1986 OPDEF RG,RG 

9FB 19 $ PATRN_TSTG: 

1 1308 OPDEF RG 

OFA 1396 PATRN_EMODG: 

HAS 190) OPDEF RG,RW,RG,WL,WG 
Ao 1398 PATRN_POLYG: 

2 1308 OPDEF RG,RW,AB 
ADG 1376 PATER STOR 
pags 130 OPDEF RG,WH 
wtf 1999 PATRN_ADDH2: 

AO? 1980 PATRN~SUBHe: 

AQ? 1981 PATRN_MULH : 

AO? 19 § PATRN_DIVH2: 

n 13 Z oP DEF RH,MH 
AOA 1985 PATRN_ADDHS: 

AOA 19 § PATRN_SUBHS: 

AOA 1987 PATRN_MULHS: 

AOA 19 3 PATRN_DIVHS: 

wae 138 OPDEF RH,RH,WH 
noe 1994 PATRN_CVTHB: 

A 1336 OPDEF RH,WB 
Al] 1994 PATRN_CVTHW: 

ai] 1332 OPDEF RH,WW 
A14 1997 PATRN_CVTH 

A14 1998 PATRN~CVTRHL 

Als 1 RH,WL 
A17 1 PATRN_CVTBH: 

th § OPDEF RB,WH 
AIA PATRN_CVTWH: 

aie 5 OPDEF RW,WH 
A1D PATRN_CVTLH: 

ng8 ; OPDEF RL,WH 

A PATRN_ACBH: 


Se 


11 


+ orate haa = Decode instruction stream 5-SEP-1 
DECODE_FAULT = major processing routine "BrSEb=} 

“ } OPDEF RH,RH,MH,BW 
A 15 PATRN_MOVH: 

A 14 PATRN_ Say 

: ! OPDEF RH,WH 

A 13 PATRN_CMPH: 

: ; ! OPDEF RH,RH 

AgB PATRN_TSTH: 

“ . OPDEF RH 

AeD PATRN_EMODH: 

“ : OPDEF RH,RW,RH,WL,WH 
A $ PATRN_POLYH: 

A OPDEF RH,RW,AB 
A3? § PATRN_CVTHG: 

" ; ? OPDEF RH,WG 

ASA § PATRN_CLRO: 

“ "7 i OPDEF wo 

ASC 5 PATRN_MOVO: 

OA | 8 § OPDEF RO,WO 

OASF 2038 PATRN_MOVAO: 
OAK +44 OPDEF AO,WL 

AG $43 PATRN_PUSHAO: 
ve be8 OPDEF AO 

ASG be PATRN.CVTEH: 

ve} 352 OPDEF RF,WH 

A47 23 PATRN_CVTFG: 

vied rt OPDEF RF,WG 

ASA 2050 PATRN_CVTHF : 

se 2) OPDEF RH,WF 

QA4D 3g PATRN_CVTHD: 

OA4D 2054 OPDEF RH,WD 
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4 
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-SBTTL Operand Decoding Routines 


RETA AAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAEAAAAAEEAEAEAERAEEEEE 
e 


® 
® ® 
* Routines for Scanning Instruction Operands * 
* ® 
® ® 
RETAKE AAAAAAAARAAAAAAAAAAAAARERARAAAEARAAAAAEAAAEAREARAAAAAAEEREE 


Introduction 


The following section contains a set of routines for 
scanning the operands of an instruction and determining the 
values and locations of operands. The code contains full error 
checking and also checks for the situations that the 
architecture considers to be unpredictable. 


Operand Scanning Routines 


The operand scanning routines are entered by loading the 
access type into R8, the data type into R9, and then 
performing a JSB-type branch to GET_SPECIFIER. 


When the routines are entered they scan the next 
instruction operand starting at the value of the user's PC 
and check the operand for validity. If any exceptions are 
detected during operand scanning they are processed immediatly 
and the routines do not return. Any changes that are made to 
any of the registers (including PC) are recorded in the change 
words so faults will be handled properly. 


If the operand access type is READ, MODIFY or FIELD, 
ADDRESS or BRANCH, the address of the value is placed in the 
appropriate element of the READ_ADDRS array. If the operand 
is also immediate mode or a register, its value is copied to 
the READ_OPERANDS array and RE D_ADDRS oints to that location. 
This is fo prevent Later operand specifiers from nods tying 
registers previously used as operands, and gives a place to 
store immediate mode operands. 


If the operand access type is WRITE, MODIFY, ADDRESS, or 
FIELD, the address of the value is pyeced in the appropriate 
element of the WRITE_ADDRS array. If the operand is a 
register, a getater fo the apersor fete amulated register 
js used. This permits correct implementation of the 

read all operands. then write all operands’ rule of 
the VAX architecture. 


If the WRITE_ADDRS element is to be filled with a value that 
ddresses our local storage then it 
s changed to an pédress hat won't do ony harm. This is 
consistent with the notion Frat the area below the user's 

n 


stack pointer is being continually garbaged. This check is not 


PPPPPrrPrrPrrrrrrrrrrrrrrrrrrrrrrr rrr rrrrrrrrrrrrrrr Yr rr Yrrrrr>,r 


Pw eee eel eal ab ah ab ab db ab ah Ab db sb sb db db db db dh db db ab ab ab eal ab val ahah sbeab ab eab al al al alah al adsl eal 


SOOOSGOCOCOCOOOOSOSOOOOSOOOCOOOOOOOOOOOOOOOOOoOOoOO 


a at I I I I I MA QHOOCOOOOOOOCOOOSOOSGOSSOSOOSCOSOCCOSOOSOOSOSOOOOOOOOOSCOO 
== §~QOOGDOG00000 000000 OO 0 0909 69 09 69 09 69 09 69 09 SI NIN NSIS NNN NINA AAAAAAAAAUIUIUIVG 
ROOD NA NE WIN @ OS ONAN WIN $$ 9 OD NAMES WIN OS ODNAULS WN O ODNAULE WW OWONIO 


SOOGSOOCOSOSOOSOSOSOOSOOOSOSOOOOOSOOOSOOOOOOSOOOSOOOoOSoSOoOSO 
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performed if flag bit V.REGISTER is set, which indicates that 
the operand is a register mode operand. 


If the FPD bit is set in the PSL, the only effect 
of decoding an operand specifier is to move the PC. 


ee ee 


Exceptions 


The instruction operand gy routines perform complete 
error checking and janedtetty signe any exceptions detected. 
ALL of these exceptions are faults. 


ALL fetches from memory done in scanning the instruction 
operand or in fetching the operand or operand address are 
robed and access violations are signaled if the probes fail. 
Ll of the addressing modes specified by the architecture to 
be reserved addressing modes or unpredictable are checked for 
and ore Strate as reserved addressing modes if they are 
etected. 


WAAR 


Routine Organization 


GET_SPECIFIER loads the length of the data type into R10 
and the operand specifier byte into RO. The high and low 
order nibbles of this byte are stored in R1 an - The 
register R7 which is reserved for the index modification is 
cleared. The routine now branches on the high order nibble 
to a routine which will handle the specific kind of operand. 


For Literals the values are expanded immediately. 


For index mode operand specifiers, the index modification 
is computed and the next operand specifier byte is loaded into 
RO and decomposed as before. again we branch on the high order 
nibble but this time certain addressing modes which are 
illegal with indexing are checked for. Also for those 
addressing modes which change register values a check is made 
that the register is not the same as the index register. 


For register mode operands the address of the emulated 
register is loaded into R11. A check is made that the operand 
does not contain PC. Then flag bit V_REGISTER is set and 
contfol passes to the operand reading routine. 


For the remaining addressing modes the operand addresses 
are computed in a strotent forward manner and toaded into R11. 
for some of these addressing modes the values of registers may 
be changed. These changes are reflected in the change words. 
When the operand ederess is computed control passes to the 
operand accessing routine. 


For ADDRESS and FIELD access mode eperends the operand 
accessing routine returns but for all others it probes the 
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| IBSDECODE_FAULT 
-009 
1 
2 
4 
08 
10 
04 
be 
0 
06 58 01 
03 = 12 
O3F9 831 
SA EA AF49 9A 
57 D4 
58 50 AD 00 
6B 01 FD AD 96 
nt 
50 50 8D 9A 
50 AD 06 
51 50 04 04 EF 
52 50 3 00 EF 
OF 0 51 cf 
6° 9° 
020° 
0020' 
0020" 
tee 
fs. 
0177° 
018E° 
O1AA’. 
ate: 
0330. 
28F ° 
sce 
EF* 
43 54 AD 1B 


5B. 55 1 
5B. CF EBS cone 7E 
06 O01 5 00 F 
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Operand Decoding Routines 


LENGTHS: 


= — os . = — 8 = 
wowwwvowww 
<<< cece 
AAA ata ts 
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GET_SPECIFIER: 
CMPL 


ae 
PA 
oe 
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Table of Data Type Lengths 
able origin 
byte 


quadword 
octaword 
F_floating 
D_floating 
G_floating 
H_ floating 


5 
5 
; 
5 


Process the Next Operand Specifier 


b 
° Longword 


Sone anew 


o 


; entrance 

Is this a branch address? 
If not, skip 

If so, go process it 

; R10 = data type length 
clear the index val 


RE -ALIBSK_DCFACC_8 


BRANCH ACCESS 
LENeTHs=t R9J,R10 


ue 
R11 = specifier byte location 


REG_PC(FP) ,R11 : 
MODE (FP) ,#1, (R11) 3 can we read the specifier byte ? 

$ 3 yes - skip 

#1,R10 ; R10 = size of probe 

AD_FAULT 3 process an access violation 

@REG_PC(FP),RO 3; RO = specifier byte 

EG_PC(FP) ; increment PC 4 

244,R0,R1 3; R1 = high order nibble of specifier 

#0,44,R0,R2 ; R2 = low order nibble of specifier 
1,#0,415 3; branch on the high order nibble 
LITERAL_MODE-3$ : 0 = literal mode 
LITERAL_MODE-3$ ; 1 = Literal mode 
LITERAL_MODE-3$ : ¢ - literal mode 
LITERAL a $ ; 3 - Literal mode 

INDEX _MODE-35$ : 4 = index mode 
REGISTER _MODE-3$ ; 5 - register mode 
REG_DEF_MODE-3$ 3 6 - register deferred mode 
DECR_MOBE-3$ : 7 = autodecrement mode 

INCR_MODE-3$ 3; 8 - autoincrement mode 

INCR_DEF _MODE-3 : 9 = autoincrement deferred mode 
BYTE_DISP_MODE-3$ ; A - byte displacement mode 
BYTE_DEF MODE- ; B - byte displacement deferred mode 
WORD-DISP_MODE-3$ 3; C - word displacement mode 
WORD_DEF _MODE-3$ 3; D - word displacement deferred mode 
LONG_DISP_MODE-3$ ; E = long displacement mode 

LONG_DEF _MODE-3$ ; F = long displacement deferred mode 


Process a Literal Mode Operand Specifier 


3 entrance 
#PSLSV_FPD,PSL(FP),20$ ; Exit if FPD set 
R - Get address of location in 
READ OPERANDS(FP)CR11],R11 ; READ_OPERANDS to store Literal 
RB,#T, #4 3; branch On the access type 
2$-1 3 1 = read only access 


C 
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4F4" OAC 3 -WORD ADDRESS_FAULT=-1$ 3 § - modify access 
4F4* OAC 4 -WORD ADDRESS_FAULT-1$ ; 3 - write only access 
4F4* OAC 5 «WORD ADDRESS_FAULT-1$ ; 4 - address access 
4F4* OACI § «WORD ADDRESS_FAULT=-1$ ; 5 - field access 
00 OACB HALT 3 6 = branch access (should not occur) 
08 O1 59 CF QAC 8 ¢ CASEL R9,#1,48 ; branch on the data type 
01B' QAD $ . WOR 6$-3$ ; 1 byte 
01B° OAD rf «WORD 6$-3$ : § - word 
4 * OAD 4 «WORD gs $ 3; 3 = longword 
15° OAD tg WORD $-3$ 3: 4 = quadword 
012° OAD 4 eWORD 4$-3$ 3; 5 = octaword 
A‘ QADA 44 » WORD gs- $ 3 § - F floating 
7° OADC 45 «WORD $-3$ ; 7 = Difloating 
4 2" OAD 46 «WORD 9$-3$ 5 8 - G_floating 
O3A" OAE 4 -WORD 10$-3$ ; 9 = H_floating 
08 AB C OAE rt: 4$: CLRQ 8(R11) 3; clear second quadword of value 
04 ae D4 OAE 49 5$: CLRL 4(R11) ; clear second longword of value 
3 5 DO OAE8 50 MOVL RO, (R11) ; Move Literal value 
FE78 CD4 2 DO OAEB 51 6$: MOVL R11,READ att yi et ; Set read operand address 
FE38 CD45 = 4 SCA 1 3g CLRL WRITE_ADBRS(FP)CRS : Indicate no write operand address 
0S OAF 5 gos RSB 3 return 
04 AB bs AF 54 7$: CLRL 4(R11) ; clear second lLongword of value 
6B 50 04 ; AFA 55 8$: ASHL #4,R0,(R11) 3; position the Literal bits 
E9 68 OE 5 babs 2$ BBCS wid, (R11) .6$ : include exponent bias and return 
68. «50 «0 8 0 57 9$: ASHL = #1,RO, (R14) ; position the literal bits 
DB 6B COE 3 0806 58 BBCS #14, (R11) ,5$ : include exponent bias and finish up 
68 50 1D ¢ OBOA 2259 10$: ROTL #29;R0,(R11) : position the Literal bits 
D0 6B OF CE 44 $ BBCS #14; (R11) ,4$ 3; include exponent bias and finish up 
bel ¢ s Process an Index Mode Operand Specifier 
1 64 INDEX_MODE : 3; entrance 
52 OF oD! 1 65 CMPL #15,R2 ; is the register PC ? 
03 «12 1 66 BNEQ 1$ 3 no - skip 
0498 831 1 67 BRW ADDRESS_ FAULT 3 process the reserved addressing mode 
06 54 AD 18 3 OBIA 68 1$ BBS #PSLSV_FPD,PSL(FP),11$ ; Skip if FPD set 
57 14 Ades SA C 1F $° MULLS) R10,REG_ROCFP)CR2],R7 ; R7 = index address modification 
5 52 +4 25 0 11$: MOVL 3 save the register number 
5B SO AD OD 8 2271 MOVL REG PC(FP),R11 : R11 = location of next byte 
68 01 FD AD OC 3 4 PROBER MODE(FP),#1,(R11) 3; can we read the next byte ? 
06 a: 1 7 BNEQ 2$ 3 yes - skip 
SA 01 3 74 MOVL #1,R10 ; R10 = size of probe 
0382 0 6 75 BSBW READ_F AULT 3 process the access violation 
50 23 BD A 9 76 2$: MOVZBL @REG PC(FP),RO ; RO = next operand specifier 
AD 06 7 INCL REG PC(FP) : increment P 
51 50 04 04 EF 4 7 EXTZV # 04 RORY ; R1 = high order nibble of specifier 
52 50 064 Oo EF 4 7 EXTZV #0,#4,R0,R2 3; R2 = low order nibble of specifier 
OF 00 51 CF OB4A 0 CASEL R1,#0,815 > branch on the low order nibble 
67° 0B4 1 3$ <WORD ADORESS_FAULT-3$ ; 0 = literal mode 
467° § -WORD ADDRESS FAULT-3$ : 1 - Literal mode 
67° WORD ADDRESS _FAULT-3$ 3 § - literal mode 
467° 4 eWORD ADDRESS_FAULT-3$ 3 - literal mode 
467° g 5 -WORD ADDRESS FAULT-3$ : 4 - index mode 
467° $ ~ WOR ADDRESS_FAULT-3$ ; 5 = register mode 
r A -WORD REG BEF LRODE-58 3 8 - regiater deferred mode 
f 2 $ -WORD 4 = 3: 7 = autodecrement mode 
° E -WORD 4$-3$ ; 8 - autoincrement mode 
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° * 06 90 -WORD 4$- : 9° putotneresent deferred mode 
* O06 9 «WORD Byte .DISP MODE-3$ ; A= byte displacement mode 
170° 08 9 -WORD BYTE-DEF_MODE-3 ; B = byte displacement deferred mode 
1A6° OE | 9 «WORD WORD-DISP_MODE-3$ ; C - word displacement mode 
1CF* 08 94 «WORD WORD DEF Pope 3e ; D = word displacement deferred mode 
§ 6° OB6A 95 «WORD LONG_DISP _MODE-3$ 3; E = long displacement mode 
F* OB6C 36 -WORD LONG DEF _MODE-3$ 3 F = long displacement deferred mode 
53 6 01 71 g 4$: cre. : , ; is register the same as index ? 
: > noes 
ou$ if B7 35 BRW ApORESS FAULT ; process the reserved addressing mode 
02 O07 «51 CF 0876 0 5$: CASEL R1,#7,#2 ; branch on the high order nibble 
pone, B7A 1 68: » WORD DECR_MODE-6$ 3; 7 = autodecrement mode 
BE’ OB7C ¢ -WORD INCR_MODE-6$ ; 8 = autoincrement mode 
OOEF * 44 04 -WORD INCR_DEF_MODE-6$ ; 9 = autoincrement deferred mode 
B8 5 3 Process a Register Mode Operand Specifier 
: : REGISTER_MODE: 3 entrance 
2—E 54 AD 1B 3 8 3 BBs #PSLSV_FPD,PSL(FP),3$ ; Skip if FPD set 
FC AD 01 0B BISB2 #M_REGISTER,FLAGS(FP) : indicate a register mode operand 
53. 6A42_~—SéOD‘#E z 10 MOVAL  (RTO)CR2],R3 ; byte position following operand 
53 . D1 D 11 CMPL #60,R ; does the operand overlap PC ? 
18 9 \¢ BGEQ 1$ 3 no = sk 
04 31 9 1 BRW ADDRESS Ay et : process the reserved addressing mode 
58 14 AD4 DE 9 14 1$ MOVAL REG_ROCFP)CR2],R11 ; R11 = Location of user register 
FE78 CD45 «D4 «(OB9A «2315 CLRL READ ADDRS(F PIERS ; Initially no read operan 
FE38 CD45 = 4 oF 1g CLRL WRITE_ADDRS(FP)CRSJ 3 Initially no write operand 
06 Of 58 CF 4 1 CASEL #1784 3; branch on the access type 
OO1F* OBA8 18 2$ «WORD AD_REG-2$ : 1 = read only access 
0019" 19 -WORD MODIFY _REG-2$ 3 ¢ - modify access 
0012' C 0 - WORD ITE_REG- : 3 - write access 
040D' 1 «WORD ADDRESS FAULT-2$ : 4 - address access 
000C* ; «WORD FIELD_REG-2$ : 5 - field access 
4 HALT ; 6 = branch access (shouldn't occur) 
0 ? : 3$: RSB ; Return for FPD set 
4 § FIELD_REG: 
FE78 CD45 5B 00 2 URITE REC R11,READ_ADDRS(FP)CR5] ; Field reads/writes register 
FE38 CD45 = SB 4 ws i vy oy R11,WRITE_ADDRS(FP)CR5] ; Indicate write operand address 
BC 1 MODIFY_REG: 
FE38 CD45 5B DO +3 § asap one Vv R11,WRITE_ADDRS(FP)CR5] ; Indicate write operand address 
ea, oe oe +H 4 “ ASHL 1,R5 : Get address of location in 
50. FEB8 CD40 7 +4 5 MOVAQ READ GPERANDS (FP) CRO RO ; READ_OPERANDS to store registers 
FE78 CD45 «50S: Os«OBD 2 MOVL RO, READ_ADDRS(FP)CR53 ; Indicate write operand address 
08 O01 59 CF QBD7 CASEL R9,#1,# : branch on the data type 
i BDB 3 1$: «WORD ¢3-18 3 1 = byte 
16° OBDD «WORD $-1$ 3 § - word 
1A° OBDF re «WORD 4$-1$ : 3 = longword 
4° OBE! 4 - WORD $313 : 4 = quadword 
F* OBE 43 - WORD $-1$ ; 5 = octaword 
1A° OBE 4 «WORD 4$-1$ ; § - F_floating 
4° OBE 44 -WORD 68-18 ; 7 = Dfloating 
4° QBE9 45 - WORD 98-13 3 8 - G_floating 
F* OBEB 46 - WORD $-1$ ; 9 = H_floating 
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60 68 E 47 2$: CVTBL (R11), (RO) 3; save operand value 
F 4 RSB 3 return 
60 68 F 49 38: CVTWL = (R11), (RO) 3 Save operand value 
F RSB ; return 
60 9 : 4$: pout (R11), (RO) 3 save operand value 
08 AO O08 AB 7D PA j 5$: MOva 8(R11),8(RO) ; save high order quadword of value 
60 7D FF 4 $8: MOVa ( ; save low order quadword of value 
O1E 31 : 5 108: BRW ROPRAND_CHECK ; Check for reserved operand 
: ; 3 Process a Register Deferred Mode Operand Specifier 
C § REG_DEF_MODE: : entrance 
52 OF o»b1 OC 60 CMPL #15,R2 ; is the register PC ? 
03 14 OCO8 $ BGTR 1$ 3 no - skip 
O3A8 31 OCOA § BRYW ADDRESS_FAULT 3; process the reserved addressing mode 
09 54 AD 19 EO 0CcO 65 1$: BBS #PSL$V_FPD See 2$ 3; Return i PD set 
5B 14 ADG2 OS c1 C1 64 ADDL3 R7,REG-ROCFP)ER2],R11  : form the operand address 
0199 1 QC1 65 BRW ACCESS-VALUE : finish establishing the access 
05 oie 66 2$: RSB 3; Return if FPD set 
gele 44 3 Process an Autodecrement Mode Operand Specifier 
OciCc 0 DECR_MODE : 3 entrance 
52 OF 0D! pele 71 CMP #15,R2 ; is the register PC ? 
03 14 CiF ie; BGTR 1$ 3 no - skip 
0391 31 0C21 7 BRW ADDRESS_FAULT : process the reserved addressing mode 
OE 54 AD 1B €0 0C24 74 1$: BBS #PSLSV_FPD,PSL(FP) 28 3; Skip if FPD set 
14 Aoss SA C2 0C29 75 SUBL R10,REG pore r ene 3 subtract data size from register 
5B 14 AD4 3 1 OC2E 6 ADDL R7 REG_RO(FP)CR2 R11 ~—s«;:-« form the operand address 
017D 1 0C34 7 BRW ACCESS~VALUE : finish establishing the access 
5 : 7 a 2s RSB ; Return if FPD set 
O¢ $ Process an Autoincrement Mode Operand Specifier 
C ¢ INCR_MODE : > entrance 
52 OF 01 0C38 CMP #15,R2 :; is the register PC ? 
F 14 OC 4 BGTR 2 3 no - bypass 
046 «01 8 CF OC3D 5 CASEL R8,#1,84 ; branch on the access type 
000B° 0C4 $ 1$ eWORD 2$-1$ : 1 - read only access 
8 4° 0C4 «WORD ADDRESS_FAULT-1$ 3 § - modify access 
74° OC4 3 -WORD ADDRESS_FAULT-1$ ; 5 - write only access 
boee C4 WORD $e-} 3; 4 - address access 
008" 0C49 ’ WORD $-1$ 3; 5 - field access 
C48 HALT 3; 6 = branch access (shouldn't occur) 
OE 54 AD 18 E cae 38 2s: BBS #PSLSV_FPD SM ht 3; Skip if FPD set 
5B 14 sors C1 OC 9 ADDL R7 ,REG-RO(FP) Bed R11 +; form the operand address 
14 AD4 A CO 0C57 2394 ADDL2 R10,REG_ROCFP)CR2) : add the data size to the register 
0155 1 OCSC 95 BRW ACCESS VALUE 3: finish establ shing the access 
OF 52 01 OCSF 36 3$: CMPL R2, #15 : is the register PC? 
os 1 C6e 9 NEQ 4 3; skip if not 
50 AD A ¢ C6 9 ADDL2 R10,REG_PC(FP) ; Do the increment of PC anyway 
0 cos ? 4$: $B : Return if FPD set 
t69 i) : Process an Autoincrement Deferred Mode Operand Specifier 
C69 24 5 INCR_DEF _MODE: 3 entrance 
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BYTE_DISP_MODE: 
MOV 


SP OOOOO0O0O0OOWMCA@DO I~) 
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PM POAAO 


1$: INCL 
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2$: RSB 


BYTE_DEF MODE: 
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WORD bish MODE : 
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#4 ,REG_PC(FP) 


; finish establ shies the access 


is the register 
skip if not 
do autoincrement of PC anyway 
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#PSLSV_FPD,PSL(FP),2$ 3; skip if FPD set 

RTT) Ered R11 : Rils register value 

MODE (FP) #4, (R11) : can we read longword it addresses ? 

#4,R10 : Ki§ = stae of probe 

READ FAULT ; process the access violation 

R7, (R11) ,R11 3: form the operand address 

f REG ROCFPDCR2I ; add longword size to the register 


return if FPD set 


Process a Byte Displacement Mode Operand Specifier 


oPSL(FP) ,2$ 


(FP)CR2J,R11 
LUE 


entrance 
R11 = location of displacement 
can we read the displacement ? 
xSs - skip 

10 = size of probe 
process Pipettes violation 


; increment 
: skip if FPD set 


R11 = displacement value 

add the displacement to the index 
add the register to the result 
finish establishing the access 
Return if FPD set 


Process a Byte Displacement Deferred Mode Operand Specifier 


#4,R10 

READ FAULT 

R7, (R11) R11 
ACCESS_ VALUE 


Bete Se Ge Ge Se Fe Ge Se Ge Ge Se Ge Ge Se Ge Ge 


entrance 
R11 = location of displacement 
can we read the displacement ? 
yes - skip 

10 = size of probe 
process the access violation 


C 
skip if FPD set 
R11 = displacement value 
add the register to the displacement 
can we rse longword it addresses ? 
es - skip 
fs = size of probe 
process the access fault 
form the operand address 
finish gatept ishing the access 
Return if FPD set 


Process a Word Displacement Mode Operand Specifier 


REG PC(FP) 
MODE (FP) #2 
#2,R10 


R11 
2 (R11) 


entrance 
R11 = location of the displacement 
can we read the displacement 


= sk 
Sf = stae of probe 
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01 3 D 4 BSBW READ_FAULT : recess hy access violation 
2? AD 03 C D 4 ; 1$: ADDL2 5 REG Pc cre) : ingre t PC 
OE 54 AD 8 5 D 4 BBS ap ‘ V_FPD,PSL(FP),2$ ; Skip i "Epps 
B $8 D F 4 : CvTw (R11) ,R11 : sti s Steplecene nt value 
8 C D 4 ADDL rif 3; add the ort to the ~dieplecenent 
58 14 ADS D14 36 : ADDLe REG _ROCFP)CR2I,R11 : add the register to the result 
009 DI9 «24 BRwW CCESS_VALUE : finish estanl shing the access 
$3 és 2s: RSB 3; Return if FPD set 
444 rts : Process a Word Displacement Deferred Mode Operand Specifier 
DID 138 WORD_DEF MODE: 3 rance 
5 50 AD $3 DID 24 AOVL EG_PC(FP),R11 : RI = focation of the displacement 
68 02 FD AD ! p 1 474 PROBER MODE (FP) #2, (R11) ; can we read the displacement ? 
5A 4 D $ $78 MOVL 13 R10 3 i = size of probe 
0180 D2B 247 BSBW READ FAULT $ process the access violation 
50 AD C D oc8 1$: ADDL2 @# REG _PC(FP) 3 ncrenen PC 
1¢ 54 AD so1B : D 47 BBS aps V-FPD,PSL(FP),3$ : skip if FPD se 
58 $ D 480 CvTw (R11) ,R11 : R11 = tant aceneiil value 
5B 14 AD4 D3A 2481 ADDL REG_RO(FP)CR2],R11 3; add the register to the displacement 
68 04 FD AD DSF 24 PROBER Ops a 3; can i 3 longword it addresses ? 
6 D44 26 BNEQ 3 yes = 
SA 4 3 ong 4 MOVL 3; R10 = a2 of probe 
019F 0 0D4 485 BSBW READ F 3; process the access violation 
58 6B 57 g D4 4 § 2s: ADOL3) oR am RI 3; form the operand address 
0061 1 QDS 4 BRW AccESS VALUE 3 finish 93°90 tehing the access 
05 43, rt +) 3$: RSB 3; Return if FPD set 
084 rh 3 Process a Long Displacement Mode Operand Specifier 
p54 49¢ LONG_DISP_MODE: > entrance 
58 50 AD 00 0D54 249 Ovi REG_PC(FP),R11 : R11 = location of the displacement 
68 04 FDAD O D58 2494 PROBER MODE(FP) #4, (R11) 3 can ue thy the displacement ? 
06 1 44 495 BNEQ 1$ 3 xs 
SA 4 4 DSF rh MOVL 4,R10 3; R10 = M4 be of probe 
0186 44) 49 BSBW READ FAULT 3 grecess the ectese violation 
OAD 046 C D6 re 1$: ADDL2 # EG_P PC(FP) 3; Increment PC 
OE 54 AD 1B sC«C*é: D69 249 BBS ihe FPD,PSL(FP),2$ 3; skip ri FpD set 
58 D 4 39 MOVL : R11 3; R11 = displacement value 
5 C D 1 ADDL Re 3; add the index to the displacement 
5B 14 ADts D74 8 ADDL REG. ROCFP)CR2I, R11 ; add the register to the address 
003 1 0079 25 BRW ACCESS_VALUE : finish: ggtept ishing the access 
5 443 3 2s: RSB 3; Return if FPD set 
444 $ 3 Process a Long Displacement Deferred Mode Operand Specifier 
D7D LONG_DEF_ MODE : rance 
5B 50 AD 0 OD7D VL REG_PC(FP),R11 : aii = location of the displacement 
66 FD AD p81 251 PROBER MODE(FP),#4, (R11) ; can we read the displacement ? 
D $ 1 BNEQ 1$ 3 yes = skip 
5A 3 p 1 MOVL #4,R10 3 R10 = Stas of probe 
015D Dp 1 BSBW READ FAULT : recess the asknes violation 
29 AD * C D 14 1$ ADDL2 # REG PC(FP) : Lg He t PC 
1¢ 54 aD 418 «£0 OD 15 BBS Pst VEFPD,PSL(FP),3$ ; skip if. FPD set 
58 D D9 18 MOVL >, R11 : RIM = displacement value 
5B 3814 AD4 C D9A 1 ADDL2 REG_ROCFP)CR2),R11 ; add the register to the "displacement 
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6B 04 FD Ap 9 444 1 pegece eles ns 3 can ue Eyes longword it addresses ? 
SA 4 B DA MOVL #4,R10 : Sti = size of probe 
0136 DA BSBW READ FAULT ; process the access violation 
5B «6B 7 DA 2$: ADDL3 R7,(R11),R11 3; form the operand address 
0001 31 OpB BRW ACCESS_VALUE : finish estab shing the access 
5 + : 3$: RSB ; Return if FPD set 
+41 § 3 Set Up the Type of Access Requested 
DB4 ACCESS_VALUE: : entrance 
06 = 01 58 4 DBS CASEL R8,#1,84 : tr on the access type 
0016° 0088 1$: <WORD READ CHECK=1$ : 1 = read only access 
5 DBA 1 WORD ODIFY_CHECK-1$ 3 2 - modify access 
: * ODBC § oW WRITE CHECK=18 : 3 - write only access 
08° 0DB e -1 ; 4 - address access 
000B' ODC 4 ‘ $-1$ : 5 - field access 
0 oc 5 L : 6 = branch access (shouldn't occur) 
0 $F § 2s: RSB 3; return with the operand address 
45) 8 $ Perform Error Checking for Modify Access Operands 
DC4 40 MODIFY_CHECK: 3 entrance 
6D 10 ODC4 41 BSBB WRITE CHECK 3; check write (and read) access 
FE78 CD45 5B DO ODC6 g MOVL R11,READ_ADDRS(FP)CR5] ; Set read operand address 
iF O11 gpec 43 BRB ROPRAND_ CHECK : Check for reserved operand 
433 22 5 Perform Error Checking for Read Only Access Operands 
DCE “3 READ_CHECK: : entrance 
FE78 CD45—s 5 DO ODCE $8 MOVL R11,READ Poon tre rtns. 3; Set read operand address 
FE38 CD4 D4 ODD4 4 CLRL WRITE_ADBRS(FP) CRS : Indicate no write operand 
68 SA FDAD O DD9 50 PROBER MODE(FP),R10,(R11) 3 can we read the operand ? 
OD 1 DD 3] BNEQ ROPRAND CHECK : yes - test for reserved operand 
DE § CMPCOND SS$_ACCV10,COND_NAME (FP); s this an SS$_ACCVIO fault? 
01 ig DE BNEQ 1$ 3; Skip if not 
g DEO 4 ; Return 
OOFE 0 EA 5 1$: BSBW READ_FAULT ; process the access violation 
DED § ROPRAND_CHECK: 
+4) CMPCOND SS$_ROPRAND,COND_NAME(FP); Is ouceps ton SS$_ROPRAND? 
5 13 ODF 28 L 8 ; If so, skip operand check 
08 01 9 F ODFA CASEL R9,#1,48 ase on data type 
1" ODF 60 1$: <wORD 10$-1$ - byte 
1° O€ $1 -WORD 1 3-1 - word 
1° OE § -WORD 10$-1 - longword 
1° OE WOR 10$-1$ - quadword 
1° OE WOR 10$-1$ - octaword 
it E WOR $-1$ - F_floating 
12° OEOA wo $-1$ - D_floating 
1E* QE0C wo $-1$ - G_floating 
2A° OE si - H_ floating 
‘ E #7849, (R11) ,#°x100 or 6 reserved operand? 
1 11 f so, $S$_ROPRAN 
0 18 lse return 
‘ €1 #4,812,4R11) ,#°xX800 reserve sperend? 
i} 11§ f so, $S$_ROPRAND 
0 lse return 


i 12 
IBSDECODE _F AULT = Decode instruction stream 15-SEP-1984 23:55: AX/VMS Macro v04-00 Pp 5 
42809 Operand Decoding foutines gree TSBs FF88:38 TANTS sees? eee ll mans 28° (38) 


— | 


8000 8F 8 9 DE28 ye 4$: CMPW = (R11) ,#*X8000 ; H reserved operand? 
1 EeD § BEQL 118 i If so, SS$_ROPRAND 
‘ : 3; Return 
EF 77 10$ RSB Ret 
' : wW ND_FAUL ; Cause s A ault 
0193 1 ; 118 BR OPERAND_FAULT C SS$_ROPRAND faul 
DE : 
+3 3 Perform Error Checking for Write Only Access Operands 
DE WRITE_CHECK: 3 entrance 
68 SA FD AD 98 DE 4 PROBEW DE(FP),R10, (R11) 3; can we write the operand ? 
14 «1 E 5 BNEQ 3: yes - bypass 
ESA § CMPCOND FES ACCVIO. COND MAME CPP): S$ exception SS$_ACCVIO? 
1 DES BEQL 3; If so, skip access test 
011 30 OE4 § BSB WRITE_FAULT 3 process the access violation 
03 FC AD 3 DE 46 BBS #V_REGISTER,FLAGS(FP),1$ ; no local store checking - skip 
E48 0 BSBW LO ; test for a write into local storage 
FE78 CD4 D4 OE4 91 1$ CLAL READ_AODRS(FP)CRS) : Indicate no reading 
FE38 CD4 SB 0 : 3 nove R11,QRITE_ADDRS(FP)CR5] ; Indicate write operand address 
ESA 94 
ESA 95 BRANCH_ACCESS: 
FE38 CD45 D4 OESA 38 CLRL BOTT ARORSCPPERSS ; Indicate no write operand 
02 01 59 F OESF 9 CASEL R9,#1,82 3; Case on data type 
9° 0&6 398 1$: <WORD BRANCH_BYTE-1$ : 1 = byte 
* 0E6 9 «WORD BRANCH_WORD-1$ : ¢ - word 
004E" 0&6 eit -WORD BRANCH _LONG-1$ : 3 - longword 
0149 #331 69 98) BRW ADDRESS_FAULT ; ALL other types get SS$_RADRMOD 
E6C $8 3 
+43 ope $ Process a Byte Branch Displacement Operand 
E6C 606 BRANCH_BYTE: 3 entrance 
5B SO AD 00 43 ts MOVL REG_PC(FP),R11 3; R11 = location of the displacement 
68 FD AD ? ef O88 A MODE CFP) #1, (R11) 3 can we read the displacement ? 
: = § 
Sh 1 E7 610 VL #1,R10 ; R10 = Hs of probe 
006€ E7A 2611 BSBW = READ FAULT i process the access violation 
58 68 E7D O16 1$: CVTBL = (R11,R1 3; R11 = branch displacement 
50 AD D6 OE 61 INCL. REG_PC(FP) : increment PC 
58 AD 6C¢ E 614 ADDL2 REG_PC(FP),R11 3 compute the branch destination 
FE78 CD45 §=— 5B 4 E 615 MOVL 11, READ_ADDRS(FP)CR5] ; Store the branch address 
: : 618 RSB 3 return 
E8E 913 3 
4 : oi) 3 Process a Word Branch Displacement Operand 
E8E 2621 BRANCH_WORD: : entrance 
8 0 AD 0 OE ° § MOVL REG_PC(FP),R11 : R11 = location of the displacement 
68 02 FD AD E PROBER MODE(FP) #2, (R11) : can we read the displacement ? 
E 4 BNEQ i $ xs - skip 
SA E 5 MOVL #2,R10 ; R10 = size of probe 
004¢ E9C $ BSBW READ FAULT : process the access violation 
58 68 ESF 1$ CvTW (RI1T,R ; R11 = branch displacement 
0 AD C EAg : ADDL? #2,REG_PC(FP) : increment PC 
B SO AD (CO OEA ADDL REG PCTEP) R11 : compute the branch destination 
FE78 CD45 58 3 DE AA ° 9 MOVL R 17READ_AODRS(FP)CRSJ ; Store the branch address 
DEBO RSB 3; return 
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D1 CMPL 
1E BGEQ 
C1 ADDL 
01 CMPL 
18 BLEQU 
3 7 MOVAB 
0 f 1$: RSB 


AX/VMS Macro V04-00 P 
LIBRTL.SRCIJLIBDECODF .MAR; 1 


"BeSEP=1984 $750825 


Process a Longword Branch Displacement Operand 


entrance 
R11 = location of the displacement 
can we reed the displacement ? 
X$8 = skip 
10 = size of probe 
process the access violation 
11 = branch displacement 
increment PC 
compute the branch destination 
Store branch address 
return 
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Test for a Write into Local Storage 
entered by subroutine branching 


R10 = Number of Bytes to be Written 
R11 = Destination Address 


R11 = Corrected Destination Address 


parameters: 


returns with 
Discussion 


This routine checks the write operation described by 
the parameters in R10 and R11 for a write into the Emulator's 
working storage. If such a write is about to take place, R11 
is changed to an address where the write will not do any harm. 


3; entrance 
LOCAL_END(FP) ,R3 ; R3 = byte following local storage 
R11,R3 ; is the write above the frame ? 
1$ 3 xgs - bypass 
R10,R11,R3 3 = byte following operand 
R3,SP : is it above the stack pointer ? 
1$ 3; no = operand is not in local storage 
TEMPC(FP),R11 : redirect the write to TEMP 


return with the operand address 
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: Exception Processing Routines * 
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Introduction 


For each of the exceptions recognized, there is a routine 
which is branched to (except for access violations in which 

a subroutine branch is used instead) as soon as the condition 
is detected. This routine pushes a shortened version of the 
signal array onto the stack and branches to SIGNAL_START which 
builds the signal and mechanism ares in the proper place in 
memory and enters the signal dispatcher to search for handlers 
to process the condition. If the exception was a fault, the 
routine FAULT_RESET is called to restore the registers to 
their values when the instruction was started. 


oO 
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Access Violations 
0 08 The routines READ_FAULT and WRITE_FAULT are called by 
704 subroutine erengning when memory probes of read and write 
8 705 access fail during instruction emulation. The register R11 is 
70 assumed to contain the location of the area being probed 
8 70 and the register R10 is assumed to contain its length. The 
708 routine tries to produce the fault under controlled conditions 
709 and returns if it can not produce the fault. If it can produce 
710 the fault the the fault is signaled with the reason mask bein 
711 the reason mask from the attempt to produce the fault and wit 
re the violation address as the address of the first byte of the 
at area for which the access violation occurs. 
715 
0 716 
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EEB rg 3 
444 4 ; READ_FAULT = Process a Read Access Violation Fault 
EE f ? ; entered by subroutine branching 
444 7 4 : parameters: R10 = Size of Area being Read 
aH 4 : ; R11 = Location of Area being Read 
EEB 27 6 READ_FAULT: ; entrance 
7 BB EEB 27 PUSHR #*M<RO,R1,R2> 3 save RO,R1,R2 
52 B O EED 27 MOVL 3; R2 = probed address 
62 01 FD e of ers 4 peere® | DECFP) #1, (R2) 3; is . a byte readable ? 
3; no - 
FF A24A 01 FD AD 96 EF 731 PROBER MODE(FP),#1,-1(R2)CR10] ; is the Last byte readable ? 
» % EF 7 § BNEQ 3 xgs = bypass 
50 FF A24A QE OFO 7 MOVA -1(R2)CR103,R0 3 = address of last byte 
52 OFF 8F AA OFO 734 BICW P 3 compute address of first bad byte 
26°AF 00 FB OFOA 27355 1$ CALLS #0,B°READ_REASON 3; get the reason mas 
12 50 3 At 7 $ BLBS » ; the read went all right - bypese 
0128 O OF! 7 BSBW FAULT_RESET ; reinitialize registers and clear TP 
SE FB a0 9E OFI4 2738 MOVAB SHORT_LOCAL(FP),SP 3; shorten the frame 
5 dD oie 739 PUSHL R2 3; push the bad address 
51 DD OFIA 2740 PUSHL R11 3 push the reason mask 
8 DD erie 741 PUSHL gg58_ACCVIO 3 push the condition code 
0 D OF1 6G) PUSHL # $ push the number of arguments 
014C 1 OF 74 BRW SIGNAL_START : signal the condition 
07 BA OF 744 2$ POPR #*M<RO,R1,R2> 3 restore RO,R1,R2 
05 4 2 ae RSB ; get back 
oF ? re : READ_REASON = Get the Reason Mask for a Read Access Violation 
OF 6 749 ; parameter: R2 = Address for which Probe Failed 
OF26 2751 : returns with RO = Status of Access Attempt 
: 3 P36 3 Ri = Reason Mask if Unsuccessful 
F26 2754 READ_REASON: : entrance 
0000 OF $ 755 -WORD 0 3 entry mask 
6D 32°AF 3 F £36 MOVAB B“REASON_HANDLER,(FP) ; set up the condition handler 
62 9 FeC 275 TSTB (R2) 3; touch the location 
50 01 DO OF2ZE 2758 MOVL #1,R0 3; indicate a successful read 
04 OF 1 128 RET 3 return 
: 61 : REASON_HANDLER = Condition Handler for Reason Routines 
F 58 : parameters: P1 = Signal Array Location 
: ree 3 P2 = Mechanism Array Location 
f 766 : returns with RO = Condition Response 
F 76 REASON_HANDLER: 3 entrance 
0 OF 6 eWORD 0 3 entry mask 
50 oe AC D OF 770 MOva 4(AP),RO ; RO and R1 = Location of arrays 
8 Al OD F38 277 TSTL att? 3; condition from establisher frame ? 
— «4% F 77 BNEQ t 3; no - bypass 
F 7 77 CMPCOND $35 ACCVIO.4(RO) 3 access violation condition ? 
11 #12 OF4 774 BNEQ $ 3; no - bypass 
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; return zero status in R 


F4 5 CLRL (R1) 3 
ae MOVL AER) secan : return the reason ~ a, R1 
F4D CLRQ 936" 3: default PC and level for unwind 
are & 8 FGF CALLS @# Shes SSUNWIND 3 unwind the reeqon routine frame 
918 8F é F 6 1$: cv TUL #S§$_RESIGNAL,RO : speci ty condition not handled 
FSC 2781 3 ~ 
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FSC 2783 : 1 
f ¢ 4 ; WRITE_FAULT = Process a Write Access Violation Fault y 
: : 4 § 3 entered by subroutine branching 7 
F5C 27 § ; parameters: R10 = Size of Area being Written U 
: : 4 3 ; R11 = Location of Area being Written 7 
F5C 2791 WRITE_FAULT: : entrance V 
7 8B F5C £36 PUSHR #*M<RO,R1,R2> : save RO,R1,R2 W 
52 5B OD Foe ih) MOVL = R ; R2 = probed address W 
62 01 FD Ap 98 . 794 PROBEW MODE (FP) #1, (R2) ; is the first byte writeable ? W 
1 F 6 795 BEQL 3 no = bypass W 
FF A24A O01 FD AD 98 F6 £38 PROBEW MODE(FP),#1,-1(R2)CR10] ; is the last byte writeable ? W 
1 FGF 79 BNEQ 1$ iY s = bypass W 
32 FF A24A 9E OF71 2798 MOVAB =1(R2)CR103,R2 : = address of last byte W 
5 O1FF 8F AA OF76 2799 BICW & 11,R ; compute address of first bad byte 
97° AF 9° FB OF7B 2800 1$: CALLS #0,B°WRITE_REASON 3; get the reason mask 
1% 5 ores 801 BLBS ° ; the write went all right - aypees 
OBA eee ang BSBW FAULT_RESET ; reinitialize registers and clear TP 
5E FREAD 9E ore 80 MOVAB SHORT_LOCAL(FP),SP ; shorten the frame 
52 DD OF89 2804 PUSHL R2 3; push the bad address 
51 OD OF8B 2805 PUSHL R1 3 push the reason mask 
8g DD OF8D 2806 PUSHL S458 ACCVIO 3; push the condition code 
0 D OF8F 2807 PUSHL # ; push the number of arguments 
0008 1 OF91 508 BRW SIGNAL_START 3 signal the condition 
07 BA OF94 09 2$: POPR #*M<RO,R1,R2> 3 restore RO,R1,R2 
05 Or oS 3i9 RSB 3; get back 
44 sig 3 WRITE_REASON = Get the Reason Mask for Write Access Violation 
Ors? Ble : parameter: R2 = Address for which Probe Failed P 
OF97 2816 3 returns with RO = Status of Access Attempt I 
ada 4 : Ri = Reason Mask if Unsuccessful 
OF97 2819 WRITE_REASON: : entrance S 
0000 0F97 0 «WORD 0 3 entry mask P 
6D 96AF 9 oh a4 1 mova B*REASON_HANDLER, (FP)  ; set up the condition handler s 
62 00 8 F9D ¢ ADDB #0, (R2) ; try to change the Location P 
50 O01 00 aoe 8 MOVL #1,R0 ; indicate a successful write C 
04 OFA age RET 3 return A 
OF A4 5 ; i 
1 
T 
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FAG 7 3 
ead 8 3 OPCODE FAULT = Process an Opcode Reserved to Digital Fault 
oe ? 3 entered by branching 
FAG § 3 no parameters 
FA4 . 
FAG 4 OPCODE_FAULT: 3 entrance 
0098 3 FA4 5 BSBW FAULT_RESET i; reinitialize registers and clear TP 
5E £8 AD — OFA7 § MOVAB SHORT _LOCAL(FP),SP ; shorten the frame 
7E 043C BF 0 3C FAB MOVZWL #SS$_OPCDEC,-(SP) ; push the condition code 
1 ae 3 PUSHL 1 ; push the number of arguments 
00BA pres i; BRW SIGNAL START 3 signal the condition 
ae ] : ADDRESS_FAULT = Process an Invalid Addressing Mode Fault 
ore? bc$ 3 entered by branching 
FB5 44 : 
OFBS 2845 : no parameters 
OFBS 2846 : 
OFBS 2847 ADDRESS_FAULT: ; entrance 
0087 30 OFBS 2848 BSBW FAULT_RESET 3; reinitialize registers and clear TP 
5E FB AD 9E OFBB Seep MOVAB SHORT _LOCAL(FP),SP ; shorten the frame 
7E 046C BF 3C OFBC 2850 MOVZWL #SS$_RADRMOD,-(SP) ; push the condition code 
01 DD OFCI 2851 PUSHL # 3 push the number of arguments 
O0A9 =‘ 31 aS o3¢ BRW SIGNAL START 3; signal the condition 
or ee Sze 3 OPERAND_FAULT = Processed a Reserved Operand Fault 
OFC6 2856 5 entered by branching 
OFC6 2857 : 
OFC6 2858 ; no parameters 
OFC6 2859 : 
OFC6 2860 OPERAND_FAULT: 3; entrance 
0076 30 OFC6 2861 BSBW FAULT_RESET 3; reinitialize registers and clear TP 
5E FR AD YE OFCI $e6e MGVAB SHORT LOCAL (FP) ,SP ; shorten the frame 
7E 0454 8F 3C OFCD 286 MOVZWL #SS$_ROPRAND,-(SP) 3 push the condition code 
01 DD OFD2 2864 PUSHL #1 ; push the number of arguments 
09098 31 OFD4 2865 BRW SIGNAL_START ; signal the condition 
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RESIGNAL = Resignal original exception 
entered by branching 
no parameters 


This routine is branched to when the user's action routine 
returns to us with a failure status, indicating the desire 
to resignal the original exception. First we call 
FAULT_RESET to undo any register modifications caused b 
seerens processing. Note that we assume that the user has 
NOT modified any register or the PSL before requesting 
aresignal. We then reset our SP to pores to the original 
signal ig (it's probably already there anyway) and 
decrement the parameter count by 2, as needed by 
SIGNAL_START. We then branch to SIGNAL_START. 


FAULT_RESET 3; Undo register modifications 
SAVE_SIGARGS (FP) , SP : Point SP to signal args 
#2, (SP) ; Adjust argument count. 
#M_RESIGNAL ,FLAGS (FP) : Indicate a resignal 
SIGNAL_START ; Do the signal 
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USER_SIGNAL = Signal user-supplied exception | 
Calling sequence: 


CALL USER_SIGNAL (fault_flag.rl.r, context.rl.r, 
signal_args.rl.ra) 


Cc 


Parameters: 


00000004 fault_flag = 4 ; The address of a longword whose 

; low bit, if set, indicates that 

; this exception is to be pignai ted 
as a fault. If the low bit is 
ee oe exception is to be 


signalled as a trap. 


If a fault, all register 

modifications which resulted from 

operand processing are rolled back. 
f a trap, the current contents 

of the registers are used. The 

current state of the PSL is used in 

either case. 


00000008 context = 8 The longword passed 

to the user action routine as 
the signal routine'’s context. 
This longword contains the FP of 
the appre riate invocation of 
LIBS$D 


CODE _FAULT. 


; The address of an array of longwords 
; spect ty ia the signal arguments of 
the exception to be signalled. 

The first longword contains the 
count of following longwords. 

Unlike the signal arguments List 
passed to a condition handler, this 
array does not contain the PC and 
PSL, and the count reflects their 
absence. 


Be Se Ge Ge Ge te 


0000000C signal_args = 12 


MPMI 


Sete Se Se Se Se Sete tee 


This routine is called from the user action routine when it wishes 
to signal an exception. The address of this routine’s entry mask 
was passed to the user action routine as an argument. 


USER_SIGNAL unwinds the stack frames back to the frame of the 
associated invocation of LIBSDECODE FAULT, whose FP was specified 
as ‘‘context’’. This unwinding is not a full unwind, but only 
calls associated handlers with the SS$_UNWIND condition. 


The user-specified signal args are then pushed on the stack and 
control branches to SIGNAL_START. Depending on whether the 
“fault_flag’ parameter is Set, FAULT_RESET may or may not be called. 
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= Decode instruction stream 197560 = 1388 $3:33:38 AX/VMS Macro V04-00 Page 6 4! 
Operand Decoding Routines 66-SEP-1984 11:05:2 LIBRTL.SRCIJLIBDECODF .MAR; 1 (19) 
001 FEB 2949 eWORD “M<R2,R3,R4> ° 
DO OFEA 3 0 MOVL context (AP) ,R3 ; Get context FP value 
DO OFE MOVL @fault_flag(AP) ,R4 ; Get fault indicator 
Dd FF 9 MOVL oignel args(AP) ,RO ; Get address of signal args 
D FF 9 MOVL (RO) RT 3 Get argument coun 
DE OFF 954 MOVAL 4¢ROSERII,RO ; Position RO past signal args 
DD OFF 955 18: PUSHL =(RO) ; Push a signal argument 
F4 169 3 § SOBGEQ R1,1$ 3; Loop till all pushed 
1p 958 3+ 
: 0 2 : ; Call handlers between our caller's frame and ‘‘context'’ frame with SS$_UNWIND 
DO 61 0 9 ; MOVL SFSL_SAVE_FP(FP) ,R2 ; Get caller's frame 
dS 1 9 § 2s TSTL (R2) ; Does this frame have a handler? 
13 1009 29 BEQL 3$ 3: Skip if not 
7C 1008 2964 CLRQ -(SP) ; Construct mechanism List 
D4 100D 2965 CLRL -(SP) :; Depth=0 
DD 100F 2966 PUSHL R2 ; Establisher's FP 
pp 1011 2967 PUSHL #4 3; n of mechanism args 
C 1oi3 MOVZWL 9 #SS$_UNWIND,=-(SP) ; Push unwind condition code 
DD 101 PUSHL #1 : n of signal args 
9F 101A PUSHAB 8(SP) ; Address of mechanism args 
9F 101D PUSHAB 4(SP) 3; Address of signal orgs 
DO 10 9 OVL (R2),R1 ; Handler address in R 
16 10 JSB G6*SYS$CALL_HANDL : Call the handler 
CO 1029 2974 ADDL2 #36,SP ; Reset SP 
DO 102C 2975 3$: MOVL SFSL_SAVE_FP(R2) ,R2 ; Get next frame 
Di 1030 2976 CMPL R2,R3 ; Is this our frame? 
12 193% 977 BNEQ 2s ; Loop if not 
103 978 
1035 2979 ;+ : 
1035 2980 ; R2 now has the desired FP. Switch frames. SP is pointing to the signal 
1035 2981 ; args. 
1035 29 g 3° 
1035 29 
DO 1035 2984 MOVL R2,FP : Switch frames 
E9 1038 2985 BLBC R4,4$ 3; Skip if not fault 
10 1038 2986 BSBB FAULT_RESET ; Roll back register modifications 
11 1930 + 14 4$: BRA SIGNAC_START : Go do the signa 
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IBSDECODE _F AULT = Decode instruction stream 15-SEP-1984 23:55:5 AX/VMS Macro V04-00 Page 
1-009 Operand Decoding Routines g-SEp-1 984 $7 503:38 LIBRTL.SRCIJLIBDECODF .MAR; 1 . (36) i 
103F 299 : * 
1 . ) 3 FAULT_RESET = Perform Reinitialization Operations for a Fault : 
} : 37 3 entered by subroutine branching ‘ 
103F 2995 : no parameters : 
103F 338 ; . : 
! : 44 : Discussion : 
103F 399 3 This routine restores the original register contents ‘ 
! : a} 3 for a fault. ‘ 
103F ; : ; 
103F 3003 FAULT_RESET: ; entrance : 
20 54 AD 18 0 103F 04 BBS #PSLSV_FPD ‘aren : skip if FPD set : 
BB AD SE 1044 3005 MOVAB ORIG _ROCFPS,R ; Address of original RO F 
14 AD 9E 1048 8g MOVAB RES ROCFP),R1 3; Address of piace to restore RO ‘ 
81 80 7D 104C MOVa (ROT+,(R1)+ ; Restore RO-R1 : 
81 80 7D 104F 8 mMOva (RO)+,(R1)+ ; Restore R2-R3 : 
81 0 7D 128 009 MOVQ (RO)+,(R1)4 3 Restore R4-R5 : 
81 0 7D 105 10 mova (RO)+,(R1)+ 3; Restore R6-R7 ; 
81 80 7D 1058 11 MOVQ (RO)+,(R1)+ 3; Restore R8-R9 . 
81 80 7D 1058 \¢ MOVQ (RO)+,(R1)+ 3; Restore R10-R11 3 
81 80 7D 105E 301 mova (RO)+,(R1)+ 3; Restore AP-FP F 
81 80 D0 1061 3014 MOVL (RO)+,(R1)+ 3; Restore SP ; 
50 AD F4 AD DO 1064 Biz 1$: MOVL ORIG PC(FP) REG _PC(FP) ; Restore PC ° 
00 54 AD 1E €5 1069 3016 BBCC  #PSLSV_TP,PSL(FP),2$ =: clear the trace pending bit : 
05 H+ ¢3 $018 2s: RSB ; return ‘ 
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SIGNAL_START = Build the Parameter Blocks for SIGNAL 
entered by branching 


parameters: ($P) = ipunceted Signal Array Size (mM) 
4(SP) = Condition Code 
8(SP) = First Signal Argument 


4*<M-1>(SP) = Last Signal Argument 
Discussion 


This routine builds the signet and mechanism array 
for a condition generated by LIBSDECODE_FAULT. It is 
e 


s 
ntered 
with the signal array for t 
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e 
condition except for the 
PC and PSL pair pushed onto the stack (with the 
pushed array Length correspondingly shortened). The etgnet 
hy P mechanism array, and the handler parameter bloc 
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PRAR_XRLARAAAAAAAAAAAAA AAA AAO 


SGD DS BDI 0 8 8 FN Fn re Fn re 8 rn 8 8 ee en rn re nn eo 


OOOOOCOOCOOSOSOSOSOSOOSSOSOOSOOOOOSOOSOOOOOOOOOOOOOOOoOO 


1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
: 
6 
196 $8 
j re are n constructed on the user's emulated stack. The routine 
1 beg then removes LIBSDECODE_FAULT’s frame from the stack and enters 
: R2 the signal dispatching Toop at SIGNAL. 
1 045 Notes: 1. The precise format of the information pushed onto 
1 bes the user's stack is given in the description of 
! Bee SIGNAL below. 
106 049 2. The method of getting out of LIBSDECODE_FAULT used in 
106 050 this routine is essentially the same as that used 
! ° bal 3 in NORMAL_EXIT. 
106 03 SIGNAL_START: 3 entrance 
57 Be 00 106 054 MOVL (SP)+,R7 ; R7 = number of signal parameters 
58 57 107 055 ASHL a R7,R8 ; RB = size of the signal parameters 
50 58 34 5 107 056 ADDL3 #52,R8,RO : RO = size of signal information 
F318 ! 107 5 BSBW TEST FRAME 3 make sure we have room for it 
56 4C AD b 107 B38 MOVL REG_SP(FP) .R6 ; R6 = user's stack pointer 
76 50 AD D1 4 5 mova REG PC(FP) ,-(R6) ; push the PC, PSL pair 
56 ; S¢ 1 60 SUBL RB,R6 ; make room for the signal parameters 
66 6 108 61 MOVC R oS he (R6) 3 push the signal parameters 
7% «5 0 C1 108 $¢ ADDL #2.R7,-(R6) 3 push the signal array length 
76 01 00 109 6 MOVL #1,-(R6) ; push code for SIGNAL (vs. STOP) 
76 14 AD 7D 109 4 MOVG REG _RO(FP),-(R6) > push user's RO and R1 
05 FC AD 1 €0 109 65 BBS #V_RESIGNAL,FLAGS(FP),1$ ; Is this a_resignal? 
? cf ! $6 tr ae a 3 NOs push -3 (depth number) 
76 rs AD oO 1 8 1$: MOVL SAVE _DEPTH(FP) ,-(R6) 3 Resignal, use saved handler depth 
76 48 AD 00 1 y 2$: VL —s«REG_FP(FP),-(R6) > push the user's FP 
6 9% D0 1 9 MOVL #4 ,=(R6) 3; push the mechanism array Length 
6 6 0 1 7 MOVL R6,-(R6) ; push the mechanism array location 
7%  1C Ag ; 1 es MOVAB 28(R6),-(R6) : push the signal array location 
6 60 Y 1 7 MOVL #2,-(R6) 3; push the handler parameter count 
08 AD 44 AD D1 74 mova REG AP(FP),SAVE_AP(FP) ; put the user's PC, PSL pair back 
10 AD DC AF 9E 1 75 MOVAB B“SIGNAL,SAVE PC(FP) : store the return point 
48 AD 9E 1 76 MOVAB FRAME_END+4 (FP) RO ; RO = location of end of frame 


| IRSDE CODE FAULT 
-009 


J. 
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FC AO 56 «FE 
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3; R6 = distance of user SP from it 


= Decode instruction stream 
Operand Decoding Routines 


C2 10C4& 3077 SUBL2 k0, Be 

EF 10C7 3078 EXTZV #0,42,R6,R1 R1 = stack alignment 

FO 10CC 3079 INSV R1 *#MASK “ALIGN, #2, SAVE MASK CFP) 3 store it into the frame 

co 4 080 ADDL2 R1.R ; compute the parameter area location 
78 100 081 ASHL #-2,R6,-4(RO) ; store the Pereneter count 

04 } oe oee R 3 return (to SIGNAL) 
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SIGNAL = Signal the Condition 
entered by branching 
parameters: ( Described in Note 3 ) 
Discussion 
Following is a description of the information which 
is assumed to be pushed onto the stack when the 


routine SIGNAL is entered. The values are ail 
Longwords. 
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Handler Parameter Block: 


(SP) 2 (handler parameter block length) 
4(SP) signal array location 
8(SP) mechanism array location 


Mechanism Array: 
12(SP) 4 (mechanism orrey Length) 
16(SP) user's FP (establisher frame) 
) =3 (establisher depth) 
4(SP) user's RO 
8(SP) user's R1 
Information Not Part of any Array: 
32(SP) 1 (code for SIGNAL) 


Signal Array: 


BDOOWDOGDOOOO 000000000 O0c0ccdcd 
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SOoooooooooooo 


36(SP) signal array Length M 
40(SP) condition code 
44(SP) first signal argument 


<42M>+ ) user 
<4eM>+ ) user's PSL 


The user's stack eginter should coincide with the 
address <4*M>+40(SP). 


We now jump to the VMS entry point to look for a handler. 


<4eM>+ (SP) last signal argument 
i eae 


SIGNAL: 
JMP G*SYSSSRCHANDLER 


-END ; End of module LIBSDECODE_F AULT 
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byebol tente fons eptiinenc ss trom BrSEbT 382 47:08:30 UC TSRTL. <REICIBDECODE .MAR; 1 (33) 
AQ? R PATRN_BVS 62 R 

PATRNADDH AA R PATRN-CALLG ecg R ; 
PATRN-ADDL 979 R se 946 R 
PATRN_ADDL oe PATA EAREC 383k : 
PATRN-ADDP4 ee “CASEW 960 R : 
PATRN_ADDP BR aA RN ESE a8 R : 
PATRN-ADDUG 4k SI ts 975 R : 
PATRN_ADDW cc ~CHMS 975 R : 
PATRN_ADWC 979 R SARA E 38 : 
PATRN~AOBLEQ rey f PATRN-CLRB 94D R 
PATRN_AOBLSS R PATRNTCLR 98A R ; 
pl 960 F PATRN-CLRO a R o : 
PATRN_ASHP oR PATRN-CLRQ 0000932 R : 
PATRN_ASHQ 24 R TRNOCLRW 9000978 : 
PATRN_BBC SoD ea2 R CATRNCER 0000944 RO : 
PATRN_BBCC 8000998 PATRN_CMPC prope RB : 
PATANCBBES S000585 palma bet St 8 : 
PATRN_BBS 0000995 R SE ia 0000806 R 8 : 
PATRN-BBSS 90000995 Ro PATRN-CMPG S00cAnB RO ; 
PATRN_BBSSI 09000935 rR 860 Lal Ta 0000987 f 03 : 
PATRN_BEQL boookes RO PATRN-CHPP3 9000896 R 9 
PATRN_BGEQ 464 os f 6 PATRN_CMPP4 0000866 R 02 : 
PATRN-BGIR. 2000869 PATRN-CRPV 8000370 RO ; 
PATRN_BGTR 000086¢ R 0 PATRNZCHPLV DOO09AT R08 : 
rare BLE Hs a St ; 
PATRN-BICL 0000979 R PATRN-CVTBD cae : 
PATA BLL geonnare # Bg PAIMCEVBE supe eB 7 
PATRN-B1 Cus” gooees #8 BATMNCEV TBR Bee ge 
PATRN-Bi Cus 9000965 RO SAL 09000986 R 2 : 
PATRN_81SB 00095C R PATRN_CVTDB OO0O08F4 R 0 ; 
PATRN_BISB aR 60 PATRN-CVTDF 90000910 R 0 : 
PATRN_BISL 00975 PATRN-CVTDL OOO0BFA R = 0 ; 
ATRN_BiS? SY BO ObOREL PATRN-CVTDW O008FP RO : 
PATRN BI SUG SR OO PATRN-CVTFB 0000888 RO : 
ATRN_B1 SW n° TRN-CVTFD Q0008E1 RO 
PATRN_B1TB 00000944 R =O pane QOO0AS7 RO é 
PATRN-BITL 000987 PATRNTEVTER AGG R : 
PATRN-BI Tu 000970 R PATRN-CVTE + : 
PATRN_BLBC R PATRN-CVTEW OO08BE R é 
PATRN-BLBS 408 PATRN-CVTGB 9B R ; 
PATRN_BLEQ 6¢ R PATRN-CV IGF 901 R ‘ 
PATRN_BLEQU R PATRN CVTGH ADG R ° 
PATRN-BLSS 4 PATRN-CVTGL 9e1 R : 
PATRN_BLSSU R “CVTGW ER d 
PATRN_BNEQ R the ADE R ; 
PATRN-BPT 46 R SAL ASD R 

PATRN~BRB asf ~CVTHE AGA R 

PATRN-BRW BR PATRN-CV A37 R 

PATRN-BSBB A PATRNZCVTHL Als R 

PATRN_BSBW ck TRN-CVTHY All R 

PATRN-BVC k PATRN- 


LIBSDECODE_ FAULT - Decode instruction stream 15-SEP-1984 23:55: AX/VMS Macro V04-00 e 
Symbol table guSEp lobe 47108250 LO IBNT caeserbpecoor.mar:1 2% ($8) i 
PATRN_CVTLB 987 R PATRN_INSQTI 7R : 
eit SS | pee (he et : 
PATRN-CVTLG FAR PATRN-JMP a 3 
PATRN-CVTLH AID R PATRN-JSB 64 R ; 
PATRNCEVItW aeR R PATRNTTOCE Ag R F 
PATRN-CVTPL AR PATRN“MATCHC R ; 
PATRN-CVTPS 47 R PATRN-MCOMB ee 8 : 
PATRNCCVTRDL eR PATRNCRCOMY 9 369 RO 
PATRN~CVTRFL R “MFP 980 R : 
PATRN-CVTRGL SoogseT PATRN-MNEGB 3e8 0 : 
PATRN-CVTRHL OO00GATS PATRN-MNEGD 0000908 R ; 
PATRNCCVTITP 0900087¢ Pa PATRNCPINE CG iH a: 
PATRNCVTWB augo0egs fg PATRNANEGH aop0KG8 Oe 
PATRN-CVTUF Gooodac4 R PATRN-MNE GW 09000869 R 02 ; 
PATRN~CVTWG 000009E7 Rss PATRN-MOVAB 0000962 R ~—s-«O2 ; 
PATRN-CVTWH OOOOOAIAR 3s «OO PATRN-MOVAL 00000990 R —s-«O2 ; 
PATRN-CVTWL 00000890 R —s«OO PATRN-MOVAO QOOddASF R 02 ; 
cere Seat & flee Sat : 
PATRN-DECW 90000977 RO PATRN-MOV Soo009es ROS ; 
PATRN_DIVB2 Goo00gsC RO PATRN-MOVC3 00000878 R 02 3 
PATRN-DIVB 0000093F R —s«éO PATRN-MOVC5 9000881 R 02 ; 
ATRN-DIVDZ 000008ED Rs«OO PATRN-MOVD 0000908 R—s«éD : 
PATRN-DIVD 000080 R 09 PATRN-MOVF Ooo0dgcr R 09 ; 
me Sn i et | 
eee Sie: Re Soe te : 
PATRN_DIVH 000 OA07 R ATRN-MOV 0000896 R 0 : 
SCRE a Eg Sime tf : 
PATRN-pAVES ooo0097c RSs«OO PATRN-MOVTC 09000887 ; # ; 
aici Seeds Rem Sit | 
PATRN-pA US 09 O58S 0 PATRN-MOVZBL 0000988 0 ; 
PATRN-EDITPC OB9E R PATRN-MOVZBWd 0000956 R 0 : 
aera, nf ea Saat | 
PATRN-EMODF gp R PATRN-MULB 0 anc R 0 ; 
ser est ff SEE, tf : 
TRN-EMUL o38 R PATRN-MULD 8 FO R 0 : 
PATRNCEXTIV BoE f PATRNCAULE Ak 
TRN7 CR PATRN-MULG D4 R ; 
PATRN-FFS a3 R PATRN-MULG 907 R : 
PATRN-HALT 866 PATRN"MULH A07 R 
PATRN-INCB 51 R PATRN-MULH AOA R 
PATRN-INCL 86 R PATRN-MULL 979 R 
PATRN7 INCH 977 R PATRNMULL 70 R 
PATRN~ INDEX BoC PATRN-MULP 6B R 
PATRN~ INSOHI E7 R PATRN-MULW2 E4 R 
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The working set Limit was 2100 pages 

15302 bytes. (226 pages) of virtual memory were used to byt ter the intermediate c 

there were 70 pages of symbol table space ee eceres to hold 1132 non-local and 143° lacal symbols. 
source 70 pag were read in Pass 1, produc ng.¢ object records in Pass 

18 pages of virtual memory were used to define 14 macros. 
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Macro Library name Macros defined 


~$255$DUA28: CSYSLIBISTARLET.MLB;2 


LIBSDECODE_ FAULT - Decode instruction stream 15-SEP-1984 23:55:5 AX/VMS v04-00 Page 70 
Symbol tabTe 6-SEP sett $7332 5:2 LIBRTL. SCIBDECODF .MAR: 1 . (22) 
TEST_FRAME 98 R 02 
USERTACTION = $9006 
USER_ACT_ADR = FFFFFDE 
USER_ACT_ARG = FFFFFDE 
USER_ACT_ENV 2 aaada tS 
ARG = 000000 
USER_SIGNAL FEB R 02 
V_REGISTER = 8 
V_RESIGNAL 1 
WORD_DEF 8 pore R og 
WORD’ DISP_MODE OOOOCF4 R 0 
WRI E_ADOR = A ODDESS 
WRITE _CHECK QO000ESS R 
WRITE_FAULT 4 sd f 
RITE_REAS QOOOF97 R 
WRITE-REG O000BBA R 02 
Pecos oeae ve eeaosas + 
! Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
— 28 ~« 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS”) LCL a NOEXE NORD a NOVEC BYTE 
SABSS 00000000 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD NOVEC BYTE 
_LIBSCODE OOOO10E2 ( 4322.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE RD NOURT NOVEC LONG 
$oremonecnraenwneseacenwoaosecas 
! ; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.0 00:00:00.99 
Command processing 128 obs SS 1 00:00:03.29 
Pass 1 422 00:00:1 39 00:01:47.95 
Symbol table sort 0 B20 +g 00:00:05.07 
Pass 2 414 0:00:04.98 00:00:18.11 
Symbol table output 1 a SF 00:00:01.09 
Psect synopsis output 1 00:00: 3°OF 00:00:00.01 
Cross-reference output 00:00:00.00 Es See ae a 
Assembler run totals 1000 00:00:22.12 00:02:16.51 
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771 GETS were required to define 9 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBDECODF /OBJ=0BJ$:LIBDECODF MSRC$:LIBDECODF /UPDATE=(ENH$:LIBDECODF) 
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